# It's not real "perl"! It just looks like it.
test_post( "Hello, World", <<'CODE', <<'RESULT');
.sub "main"
    "hello"()
.end

.sub "hello"
    say "Hello, World"
.end
CODE
Hello, World
RESULT

test_post( "Hello, World (dynamic)", <<'CODE', <<'RESULT');
.sub "main"
    $S0 = "hello"
    $S0()
.end

.sub "hello"
    say "Hello, World"
.end
CODE
Hello, World
RESULT

# vim: ft=perl

# It's not real "perl"! It just looks like it.
test_post( "Hello, World", <<'CODE', <<'RESULT');
.sub "main"
    "hello"()
.end

.sub "hello"
    say "Hello, World"
.end
CODE
Hello, World
RESULT

test_post( "Hello, World (dynamic)", <<'CODE', <<'RESULT');
.sub "main"
    $S0 = "hello"
    $S0()
.end

.sub "hello"
    say "Hello, World"
.end
CODE
Hello, World
RESULT

test_post( "Hello, World (arg)", <<'CODE', <<'RESULT');
.sub "main"
    "hello"("Hello, World")
.end

.sub "hello"
    .param string greeting
    say greeting
.end
CODE
Hello, World
RESULT



# vim: ft=perl

Add test for simple sub invocation with sc param
Add test for simple sub invocation with sc param
