-
Notifications
You must be signed in to change notification settings - Fork 138
/
pccmethod_test.t
76 lines (64 loc) · 1.37 KB
/
pccmethod_test.t
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
#!perl
# Copyright (C) 2006-2007, Parrot Foundation.
use strict;
use warnings;
use lib qw( . lib ../lib ../../lib );
use Test::More;
use Parrot::Test tests => 2;
=head1 NAME
t/dynpmc/pmethod_test.t - test the PCCMETHOD_Test PMC
=head1 SYNOPSIS
% prove t/dynpmc/pccmethod_test.t
=head1 DESCRIPTION
Tests the PCCMETHOD_Test PMC.
=cut
pir_output_is( <<'CODE', <<'OUT', 'named args' );
.sub main :main
$P0 = loadlib 'pccmethod_test'
$P1 = new 'PCCMETHOD_Test'
$P1.'test_method3'( 'a1name' => 10, 'a2name' => 20 )
.end
CODE
test_method3
10, 20
OUT
pir_output_is( <<'CODE', <<'OUT', 'optional args and multiple returns' );
.sub main :main
$P0 = loadlib 'pccmethod_test'
$P1 = new 'PCCMETHOD_Test'
$P1.'test_method0'(1)
$P1.'test_method1'(1, 2, 3, 4, 5, 6)
$P1.'test_method2'()
$P1.'test_method2'(1)
$P1.'test_method2'(1,2)
$P1.'test_method2'(1,2,3)
($P2,$P3) = $P1.'test_method2'(101)
print "BACK - "
print $P2
print " - "
print $P3
print " -\n"
.end
CODE
test_method0
1
test_method1
1,2,3,4,5,6
test_method2
0, 0, ResizablePMCArray [ ]
test_method2
1, 1, ResizablePMCArray [ ]
test_method2
1, 1, ResizablePMCArray [ 2 ]
test_method2
1, 1, ResizablePMCArray [ 2, 3 ]
test_method2
101, 1, ResizablePMCArray [ ]
BACK - 1000 - KEVIN -
OUT
# Local Variables:
# mode: cperl
# cperl-indent-level: 4
# fill-column: 100
# End:
# vim: expandtab shiftwidth=4: