t/op/say.t

   1 #!perl
   2 # Copyright (C) 2001-2008, Parrot Foundation.
   3 # $Id$
   4
   5 use strict;
   6 use warnings;
   7 use lib qw( . lib ../lib ../../lib );
   8
   9 use Test::More;
  10 use Parrot::Test tests => 8;
  11
  12 =head1 NAME
  13
  14 t/op/say.t - Testing the say pseudo-opcode
  15
  16 =head1 SYNOPSIS
  17
  18     % prove t/op/say.t
  19
  20 =head1 DESCRIPTION
  21
  22 Tests various PMCs and registers with say.
  23
  24 =cut
  25
  26 pir_output_is( <<'CODE', <<'OUTPUT', 'say with a literal string' );
  27 .sub main
  28     say "string literal"
  29 .end
  30 CODE
  31 string literal
  32 OUTPUT
  33
  34 pir_output_is( <<'CODE', <<'OUTPUT', 'say with a literal integer' );
  35 .sub main
  36     say 42
  37 .end
  38 CODE
  39 42
  40 OUTPUT
  41
  42 pir_output_is( <<'CODE', <<'OUTPUT', 'say with a literal number' );
  43 .sub main
  44     say 3.14
  45 .end
  46 CODE
  47 3.14
  48 OUTPUT
  49
  50 pir_output_is( <<'CODE', <<'OUTPUT', 'say with a temporary string register' );
  51 .sub main
  52     $S5 = "string register"
  53     say $S5
  54 .end
  55 CODE
  56 string register
  57 OUTPUT
  58
  59 pir_output_is( <<'CODE', <<'OUTPUT', 'say with a temporary integer register' );
  60 .sub main
  61     $I4 = 10
  62     say $I4
  63 .end
  64 CODE
  65 10
  66 OUTPUT
  67
  68 pir_output_is( <<'CODE', <<'OUTPUT', 'say with a temporary number register' );
  69 .sub main
  70     $N2 = 1.414
  71     say $N2
  72 .end
  73 CODE
  74 1.414
  75 OUTPUT
  76
  77 pir_output_is( <<'CODE', <<'OUTPUT', 'say and print with a number register' );
  78 .sub main
  79     $N0 = 3.14159
  80     say $N0
  81     print $N0
  82     print "\n"
  83 .end
  84 CODE
  85 3.14159
  86 3.14159
  87 OUTPUT
  88
  89 pir_error_output_like( <<'CODE', <<'OUTPUT', 'say with PMCNULL argument' );
  90 .sub 'main'
  91     null $P0
  92     say $P0
  93 .end
  94 CODE
  95 /Null PMC in say/
  96 OUTPUT
  97
  98 # Local Variables:
  99 #   mode: cperl
 100 #   cperl-indent-level: 4
 101 #   fill-column: 100
 102 # End:
 103 # vim: expandtab shiftwidth=4: