Author: kjs
Date: Mon Oct 1 11:37:20 2007
New Revision: 21723
Modified:
trunk/languages/PIR/t/assign.t
trunk/languages/PIR/t/call.t
Log:
languages/PIR:
* add some tests
* some layout stuff.
Modified: trunk/languages/PIR/t/assign.t
==============================================================================
--- trunk/languages/PIR/t/assign.t (original)
+++ trunk/languages/PIR/t/assign.t Mon Oct 1 11:37:20 2007
@@ -37,10 +37,10 @@
language_output_like( 'PIR_PGE', <<'CODE', qr/Parse successful!/, 'set keyed
assignments' );
.sub main
- x[1] = 1
- x[1.1] = 2.222
+ x[1] = 1
+ x[1.1] = 2.222
x["hello"] = "hello"
- x[e] = f
+ x[e] = f
.end
CODE
Modified: trunk/languages/PIR/t/call.t
==============================================================================
--- trunk/languages/PIR/t/call.t (original)
+++ trunk/languages/PIR/t/call.t Mon Oct 1 11:37:20 2007
@@ -142,6 +142,15 @@
.pcc_end
.end
+.sub foo
+ .local pmc x
+ .pcc_begin
+ .invocant obj
+ .meth_call 'meth'
+ .pcc_end
+.end
+
+
CODE
@@ -157,12 +166,16 @@
foo(a, b, c :flat, 'x' => 3, 'y' => 4, z :flat :named('z'))
x = foo() # single result
- (i, j :optional, ar :slurpy, value :named('key') ) = foo()
+ (i, j :optional, ar :slurpy, value :named('key') ) = foo()
.end
.sub foo
.return (i, ar :flat, value :named('key') )
.end
+.sub bar
+ () = baz()
+.end
+
CODE
