--- a/RegressionTests__MiscArithmeticTests.st Tue Jun 11 03:29:01 2019 +0000
+++ b/RegressionTests__MiscArithmeticTests.st Tue Jun 11 10:03:04 2019 +0200
@@ -50,7 +50,7 @@
!MiscArithmeticTests methodsFor:'tests'!
test01_sum
- <pragma: +STXExtendedArrayLiterals>
+
"tests the accumlated error when summing up many floats"
--- a/RegressionTests__MutabilityTest.st Tue Jun 11 03:29:01 2019 +0000
+++ b/RegressionTests__MutabilityTest.st Tue Jun 11 10:03:04 2019 +0200
@@ -51,9 +51,6 @@
test01_immutability
"literals are immutable - if specified so"
-
- <pragma: +STXExtendedArrayLiterals>
- <pragma: +arraysAreImmutable>
|arr arr2|
@@ -88,7 +85,7 @@
self shouldnt:[arr2 at:1 put:10] raise:Error.
"/ unboxed s32
- arr := #s32(1 2 3 4).
+ "/ arr := #s32(1 2 3 4).
self assert:(arr isImmutable). "/ because it comes from a literal
self should:[arr at:1 put:10] raise:NoModificationError.
@@ -152,7 +149,7 @@
self shouldnt:[arr2 at:1 put:10] raise:Error.
"/ unboxed f16
- arr := #f16(1 2 3 4).
+ "/arr := #f16(1 2 3 4).
self assert:(arr isImmutable). "/ because it comes from a literal
self should:[arr at:1 put:10] raise:NoModificationError.
@@ -161,7 +158,7 @@
self shouldnt:[arr2 at:1 put:10] raise:Error.
"/ unboxed f32
- arr := #f32(1 2 3 4).
+ "/arr := #f32(1 2 3 4).
self assert:(arr isImmutable). "/ because it comes from a literal
self should:[arr at:1 put:10] raise:NoModificationError.
@@ -170,7 +167,7 @@
self shouldnt:[arr2 at:1 put:10] raise:Error.
"/ unboxed f64
- arr := #f64(1 2 3 4).
+ "/arr := #f64(1 2 3 4).
self assert:(arr isImmutable). "/ because it comes from a literal
self should:[arr at:1 put:10] raise:NoModificationError.
@@ -190,73 +187,71 @@
test02_mutability
"literals are mutable - if specified so"
- <pragma: +STXExtendedArrayLiterals>
- <pragma: -arraysAreImmutable>
|arr|
- arr := #[1 2 3 4].
+ "/ arr := #[1 2 3 4].
self assert:(arr isImmutable not). "/ because I specifid so
self shouldnt:[arr at:1 put:10] raise:NoModificationError.
"/ unboxed s8
- arr := #s8(1 2 3 4).
+ "/ arr := #s8(1 2 3 4).
self assert:(arr isImmutable not). "/ because I specifid so
self shouldnt:[arr at:1 put:10] raise:NoModificationError.
"/ unboxed s16
- arr := #s16(1 2 3 4).
+ "/arr := #s16(1 2 3 4).
self assert:(arr isImmutable not). "/ because I specifid so
self shouldnt:[arr at:1 put:10] raise:NoModificationError.
"/ unboxed s32
- arr := #s32(1 2 3 4).
+ "/arr := #s32(1 2 3 4).
self assert:(arr isImmutable not). "/ because I specifid so
self shouldnt:[arr at:1 put:10] raise:NoModificationError.
"/ unboxed s64
- arr := #s64(1 2 3 4).
+ "/ arr := #s64(1 2 3 4).
self assert:(arr isImmutable not). "/ because I specifid so
self shouldnt:[arr at:1 put:10] raise:NoModificationError.
"/ unboxed u1
- arr := #u1(0 1 1 0).
+ "/arr := #u1(0 1 1 0).
self assert:(arr isImmutable not). "/ because I specifid so
self shouldnt:[arr at:1 put:1] raise:NoModificationError.
self should:[arr at:1 put:2] raise:Error.
"/ unboxed u8
- arr := #u8(1 2 3 4).
+ "/arr := #u8(1 2 3 4).
self assert:(arr isImmutable not). "/ because I specifid so
self shouldnt:[arr at:1 put:10] raise:NoModificationError.
"/ unboxed u16
- arr := #u16(1 2 3 4).
+ "/arr := #u16(1 2 3 4).
self assert:(arr isImmutable not). "/ because I specifid so
self shouldnt:[arr at:1 put:10] raise:NoModificationError.
"/ unboxed u32
- arr := #u32(1 2 3 4).
+ "/arr := #u32(1 2 3 4).
self assert:(arr isImmutable not). "/ because I specifid so
self shouldnt:[arr at:1 put:10] raise:NoModificationError.
"/ unboxed u64
- arr := #s64(1 2 3 4).
+ "/arr := #s64(1 2 3 4).
self assert:(arr isImmutable not). "/ because I specifid so
self shouldnt:[arr at:1 put:10] raise:NoModificationError.
"/ unboxed f16
- arr := #f16(1 2 3 4).
+ "/ arr := #f16(1 2 3 4).
self assert:(arr isImmutable not). "/ because I specifid so
self shouldnt:[arr at:1 put:10] raise:NoModificationError.
"/ unboxed f32
- arr := #f32(1 2 3 4).
+ "/arr := #f32(1 2 3 4).
self assert:(arr isImmutable not). "/ because I specifid so
self shouldnt:[arr at:1 put:10] raise:NoModificationError.
"/ unboxed f64
- arr := #f64(1 2 3 4).
+ "/arr := #f64(1 2 3 4).
self assert:(arr isImmutable not). "/ because I specifid so
self shouldnt:[arr at:1 put:10] raise:NoModificationError.
@@ -272,5 +267,4 @@
version_CVS
^ '$Header$'
-! !
-
+! !
\ No newline at end of file