t/dynpmc/pccmethod_test.t

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