Index: t/00-parrot/10-augop.t =================================================================== --- t/00-parrot/10-augop.t (revision 31242) +++ t/00-parrot/10-augop.t (working copy) @@ -6,43 +6,55 @@ i = 0 i += 10 if i == 10: print 'ok 1' +else: print 'not ok 1' i = 10 i -= 5 if i == 5: print 'ok 2' +else: print 'not ok 2' i = -5 i *= 2 if i == -10: print 'ok 3' +else: print 'not ok 3' i = 10 i /= 2 if i == 5: print 'ok 4' +else: print 'not ok 4' i = 10 i %= 4 if i == 2: print 'ok 5' +else: print 'not ok 5' -i = 3 -i **= 3 -if i == 27: print 'ok 6' +#i = 3 +#i **= 3 +#if i == 27: print 'ok 6' +#else: print 'not ok 6' +print 'not ok 6 # TODO implement **=' i = 128 i >>= 2 if i == 32: print 'ok 7' +else: print 'not ok 7' i = 1 i <<= 10 if i == 1024: print 'ok 8' +else: print 'not ok 8' i = 0x55 i &= 0x1f if i == 0x15: print 'ok 9' +else: print 'not ok 9' i = 0x55 i ^= 0x1f if i == 0x4a: print 'ok 10' +else: print 'not ok 10' i = 0x55 i |= 0x1f if i == 0x5f: print 'ok 11' +else: print 'not ok 11' Index: t/00-parrot/11-boolop.t =================================================================== --- t/00-parrot/11-boolop.t (revision 0) +++ t/00-parrot/11-boolop.t (revision 0) @@ -0,0 +1,49 @@ +#!./parrot pynie.pbc + +print '1..9' + +if 1 and 2 and 3: + print 'ok 1' +else: + print 'not ok 1' + +if 0 and 1 and 2: + print 'not ok 2' +else: + print 'ok 2' + +if 0 or 1 or 2: + print 'ok 3' +else: + print 'not ok 3' + +if 0 or 0 or 0: + print 'not ok 4' +else: + print 'ok 4' + +if not 0: + print 'ok 5' +else: + print 'not ok 5' + +if not 1: + print 'not ok 6' +else: + print 'ok 6' + +if 1 or 0 and 0: # and should be tighter than or + print 'ok 7' +else: + print 'not ok 7' + +if (1 or 0) and 0: # test parentheses + print 'not ok 8' +else: + print 'ok 8' + +#if not not 1: +# print 'ok 9' +#else: +# print 'not ok 9' +print 'not ok 9 # TODO fix double nots' Index: src/parser/Actions.pm =================================================================== --- src/parser/Actions.pm (revision 31242) +++ src/parser/Actions.pm (working copy) @@ -448,7 +448,7 @@ method not_test($/) { my $past := $( $ ); for $ { - $past := PAST::Op.new( $past, :pirop('not'), :node($/) ); + $past := PAST::Op.new( $past, :pirop('not II'), :node($/) ); } make $past; } Index: MAINTAINER =================================================================== --- MAINTAINER (revision 31242) +++ MAINTAINER (working copy) @@ -3,4 +3,4 @@ N: Patrick Michaud E: pmichaud@pobox.com -Patches and suggestions can be sent to . +Patches/bugs/suggestions can be sent to .