[svn:parrot] r44569 - branches/ops_pct/compilers/opsc/t

[bacek at svn.parrot.org]

Author: bacek
Date: Mon Mar  1 12:32:43 2010
New Revision: 44569
URL: https://trac.parrot.org/parrot/changeset/44569

Log:
Fix test

Modified:
   branches/ops_pct/compilers/opsc/t/03-past.t

Modified: branches/ops_pct/compilers/opsc/t/03-past.t
==============================================================================
--- branches/ops_pct/compilers/opsc/t/03-past.t	Mon Mar  1 12:32:21 2010	(r44568)
+++ branches/ops_pct/compilers/opsc/t/03-past.t	Mon Mar  1 12:32:43 2010	(r44569)
@@ -33,8 +33,6 @@
 
 my $preambles := $past<preamble>;
 
-#    $P1 = $P0[0]
-#    $S0 = $P1[0]
 ok($preambles[0][0] ~~ /HEADER/, 'Header parsed');
 
 my @ops := @($past<ops>);
@@ -55,15 +53,18 @@
 my $arg;
 
 $arg := @args[0];
-ok($arg<direction> == 'out', 'First direction is correct');
-ok($arg<type> == 'INT', 'First type is correct');
+ok($arg<direction> eq 'out', 'First direction is correct');
+ok($arg<type> eq 'INT', 'First type is correct');
 
 $arg := @args[1];
-ok($arg<direction> == 'in', 'Second direction is correct');
-ok($arg<type> == 'PMC', 'Second type is correct');
+ok($arg<direction> eq 'in', 'Second direction is correct');
+ok($arg<type> eq 'PMC', 'Second type is correct');
+
+$arg := @args[2];
+ok($arg<direction> eq 'inconst', 'Third direction is correct');
+ok($arg<type> eq 'NUM', 'Third type is correct');
+
 
-ok($arg<direction> == 'inconst', 'Third direction is correct');
-ok($arg<type> == 'NUM', 'Third type is correct');
 
 # Don't forget to update plan!