*** empty log message ***
authorsr
Tue, 11 Jun 2019 10:03:04 +0200
changeset 2313 aada90d91658
parent 2312 911a9235bbd9
child 2314 6b2bf1a989f4
*** empty log message ***
RegressionTests__MiscArithmeticTests.st
RegressionTests__MutabilityTest.st
--- 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