a108-regressions.diff

--- cpl_2_100_107_3_1.log	2010-10-20 02:04:53.294422240 +0200
+++ cpl_2_100_108_3_1.log	2010-10-20 01:59:33.426921478 +0200
@@ -1,10 +1,16 @@
 
 file: core-tests.r
 
+[error? make error! [type: 'script id: 'set-self]]
+[error? make error! [type: 'script id: 'bad-parse-rule]]
+[error? make error! [type: 'access id: 'no-plugin]]
+[error? make error! [type: 'access id: 'bad-plugin]]
+[error? make error! [type: 'internal id: 'bad-intrinsic]]
 [
-	f: does [#]
-	# == f
+	e: disarm try [do to block! ":a"]
+	e/id = 'not-defined
 ]
+[issue? #]
 [money? USD$1]
 [money? CZK$1]
 [
@@ -20,6 +26,15 @@
 	]
 ]
 [
+	error? a-value: try [1 / 0]
+	same? disarm :a-value disarm a-value
+]
+[
+	unset 'a-value
+	e: disarm try [a-value]
+	e/id = 'no-value
+]
+[
 	(make bitset! #{FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF})
 		= complement make bitset! #{0000000000000000000000000000000000000000000000000000000000000000}
 ]
@@ -27,6 +42,8 @@
 	(make bitset! #{0000000000000000000000000000000000000000000000000000000000000000})
 		= complement make bitset! #{FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
 ]
+[(make image! [1x1 #{000000}]) = complement make image! [1x1 #{ffffff} #{ff}]]
+[(make image! [1x1 #{ffffff} #{ff}]) = complement make image! [1x1 #{000000}]]
 [
 	(make bitset! #{FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF})
 		= negate make bitset! #{0000000000000000000000000000000000000000000000000000000000000000}
@@ -35,15 +52,16 @@
 	(make bitset! #{0000000000000000000000000000000000000000000000000000000000000000})
 		= negate make bitset! #{FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
 ]
+[-$100 == round/half-ceiling -$100.5000000001]
 [0 = sign? USD$0]
-[# == all [#]]
-[# == all [true #]]
-[# == any [#]]
-[# == any [false #]]
-[# == any [# false]]
+[true = all [# true]]
 [1 = catch [type? throw 1]]
-[# == do [#]]
-[# == do #]
+[error? disarm try [1 / 0]]
+[
+	val1: disarm try [do [1 / 0]]
+	val2: disarm try [do/next [1 / 0] 'b]
+	val1/near = val2/near
+]
 [error? err: try [else] c: disarm err c/id = 'else-gone]
 [
 	num: 0
@@ -59,11 +77,16 @@
 		either num > 1 [break/return false] [true]
 	]
 ]
+[if # [true]]
 [
 	f1: does [reduce [return 1 2] 2]
 	1 = f1
 ]
 [
+	e: disarm try [1 / 0]
+	e/id = 'zero-divide
+]
+[
 	f: func [] [
 		use [a] [return 1]
 		2
@@ -215,15 +238,12 @@
 ]
 [same? 1.7976931348623157e310% load mold/all 1.7976931348623157e310%]
 [same? -1.7976931348623157E310% load mold/all -1.7976931348623157e310%]
-[same? 2.2250738585072014E-310% load mold/all 2.2250738585072014E-310%]
-[same? 2.2250738585072009E-310% load mold/all 2.2250738585072009E-310%]
-[same? 4.9406564584124654E-322% load mold/all 4.9406564584124654E-322%]
-[same? -2.2250738585072014E-306% load mold/all -2.2250738585072014E-306%]
-[same? -2.2250738585072009E-306% load mold/all -2.2250738585072009E-306%]
-[same? -4.9406564584124654E-322% load mold/all -4.9406564584124654E-322%]
-[same? 9.9999999999999926e154% load mold/all 9.9999999999999926e154%]
 [equal? a-value: # to string! a-value]
 [
+	a-value: #
+	equal? equal? a-value to string! a-value equal? to string! a-value a-value
+]
+[
 	a-value: construct/only [c: $1]
 	b-value: construct/only [c: 100%]
 	equal? a-value b-value
@@ -243,14 +263,37 @@
 	]
 	equal? a-value b-value
 ]
+[error? try [equal? () ()]]
+[error? try [equal? () none]]
+[error? try [equal? none ()]]
+[not equal? try [equal? none ()] try [equal? () none]]
+[not equal? disarm try [equal? none ()] disarm try [equal? () none]]
+[error? try [none = ()]]
+[error? try [none != ()]]
+[error? try [() = ()]]
+[error? try [() != ()]]
+[not equal? try [none = ()] try [() = none]]
+[not equal? disarm try [none = ()] disarm try [() = none]]
 [not equal? (try [1 / 0]) (try [2 / 0])]
 [
 	a-value: #
 	equiv? a-value to string! a-value
 ]
+[
+	a-value: #
+	equal? equiv? a-value to string! a-value equiv? to string! a-value a-value
+]
 [not equiv? to decimal! #{3FD3333333333333} to decimal! #{3FD3333333333334}]
 [not equiv? to decimal! #{3FB9999999999999} to decimal! #{3FB999999999999A}]
 [
+	a-value: #
+	not strict-equal? a-value to string! a-value
+]
+[
+	a-value: #
+	equal? strict-equal? a-value to string! a-value strict-equal? to string! a-value a-value
+]
+[
 	a-value: first ['a/b]
 	parse :a-value [b-value:]
 	not strict-equal? :a-value :b-value
@@ -271,6 +314,14 @@
 	not strict-equal? :a-value :b-value
 ]
 [
+	a-value: #
+	not same? a-value to string! a-value
+]
+[
+	a-value: #
+	equal? same? a-value to string! a-value same? to string! a-value a-value
+]
+[
 	a-value: first ['a/b]
 	parse :a-value [b-value:]
 	not same? :a-value :b-value
@@ -291,4 +342,4 @@
 	not same? :a-value :b-value
 ]
 
-Total: 3822 Succeeded: 3769 Failed: 53
\ No newline at end of file
+Total: 3829 Succeeded: 3750 Failed: 79
\ No newline at end of file