[svn:parrot] r42529 - trunk/t/op
mikehh at svn.parrot.org
mikehh at svn.parrot.org
Sun Nov 15 23:56:53 UTC 2009
Author: mikehh
Date: Sun Nov 15 23:56:52 2009
New Revision: 42529
URL: https://trac.parrot.org/parrot/changeset/42529
Log:
fix test so failure logic is correct
Modified:
trunk/t/op/comp.t
Modified: trunk/t/op/comp.t
==============================================================================
--- trunk/t/op/comp.t Sun Nov 15 22:19:18 2009 (r42528)
+++ trunk/t/op/comp.t Sun Nov 15 23:56:52 2009 (r42529)
@@ -34,12 +34,14 @@
set $I0, 10
gt 11, $I0, ok1
ok(0, "nok gt1")
+ branch nok1
ok1:
ok(1, "ok gt1")
- gt 9, $I0, nok1
+ nok1:
+ gt 9, $I0, nok2
ok(1, "ok gt2")
.return()
- nok1:
+ nok2:
ok(0,"nok gt 2")
.end
@@ -47,16 +49,19 @@
set $I0, 10
ge 11, $I0, ok1
ok(0, "nok ge1")
+ branch nok1
ok1:
ok(1, "ok ge1")
- ge 9, $I0, nok1
+ nok1:
+ ge 9, $I0, nok2
ok(1, "ok ge2")
branch ok2
- nok1:
+ nok2:
ok(0, "nok ge2")
ok2:
ge 10, $I0, ok3
ok(0, "nok ge3")
+ .return()
ok3:
ok(1, "ok ge3")
.end
@@ -65,16 +70,19 @@
set $I0, 10
le 9, $I0, ok1
ok(0, "nok le1")
+ branch nok1
ok1:
ok(1, "ok le1")
- le 11, $I0, nok1
+ nok1:
+ le 11, $I0, nok2
ok(1, "ok le2")
branch ok2
- nok1:
+ nok2:
ok(0, "nok le2")
ok2:
le 10, $I0, ok3
ok(0, "nok le2")
+ .return()
ok3:
ok(1, "ok le3")
.end
@@ -83,12 +91,14 @@
set $I0, 10
lt 9, $I0, ok1
ok(0, "nok lt1")
+ branch nok1
ok1:
ok(1, "ok lt1")
- lt 10, $I0, nok1
+ nok1:
+ lt 10, $I0, nok2
ok(1, "ok lt2")
.return()
- nok1:
+ nok2:
ok(0, "nok lt2")
.end
@@ -102,10 +112,10 @@
ok1:
eq 10, $I0, ok2
ok(0, "nok eq2")
- branch test1
+ branch nok2
ok2:
ok(1, "ok eq2")
- test1:
+ nok2:
eq 11, 10, nok3
ok(1, "ok eq3")
.return()
@@ -141,6 +151,7 @@
set $P1, "-1.2"
eq_num $P0, $P1, OK
ok(0, "not eq_num")
+ .return()
OK:
ok(1, "eq_num")
.end
More information about the parrot-commits
mailing list