t/pmc/sys.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::Util 'create_tempfile';
  11
  12 use Parrot::Test tests => 2;
  13
  14 =head1 NAME
  15
  16 t/pmc/sys.t - System Tests
  17
  18 =head1 SYNOPSIS
  19
  20     % prove t/pmc/sys.t
  21
  22 =head1 DESCRIPTION
  23
  24 Tests system dependent stuff
  25
  26 =cut
  27
  28 my (undef, $temp_pir) = create_tempfile( SUFFIX => '.pir', UNLINK => 1 );
  29
  30 pir_output_is( <<"CODE", <<OUT, "spawnw, _config" );
  31
  32 .sub _test :main
  33      .local pmc O
  34      O = new ['FileHandle']
  35      O.'open'("$temp_pir", 'w')
  36      print O, ".sub _main :main\\n"
  37      print O, "\tsay \\"Hello, World!\\"\\n"
  38      print O, ".end\\n"
  39      O.'close'()
  40      load_bytecode 'config.pbc'
  41     .local pmc conf_hash
  42     conf_hash = _config()
  43     .local string slash
  44     slash = conf_hash["slash"]
  45     .local string parrot
  46     parrot = conf_hash["test_prog"]
  47     .local string cmd
  48     cmd = '.'
  49     cmd .= slash
  50     cmd .= parrot
  51     cmd .= " $temp_pir"
  52     spawnw \$I0, cmd
  53     say \$I0
  54 .end
  55
  56 CODE
  57 Hello, World!
  58 0
  59 OUT
  60
  61 pir_output_is( <<'CODE', <<'OUT', "conf_hash is read-only")
  62 .sub _test :main
  63      load_bytecode 'config.pbc'
  64     .local pmc conf_hash
  65     conf_hash = _config()
  66     push_eh is_ro
  67     conf_hash['foo'] = 'bar'
  68     pop_eh
  69     goto end
  70 is_ro:
  71     say 'hash is read-only'
  72 end:
  73 .end
  74
  75 CODE
  76 hash is read-only
  77 OUT
  78
  79 # Local Variables:
  80 #   mode: cperl
  81 #   cperl-indent-level: 4
  82 #   fill-column: 100
  83 # End:
  84 # vim: expandtab shiftwidth=4: