t/op/load_bytecode.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 => 3;
  10
  11 =head1 NAME
  12
  13 t/op/load_bytecode.t - loading bytecode tests
  14
  15 =head1 SYNOPSIS
  16
  17         % prove t/op/load_bytecode.t
  18
  19 =head1 DESCRIPTION
  20
  21 Tests the C<load_bytecode> operation.
  22
  23 =cut
  24
  25 pir_error_output_like( <<'CODE', <<'OUTPUT', "load_bytecode on NULL" );
  26 .sub main :main
  27     load_bytecode $S0
  28 .end
  29 CODE
  30 /no file name/
  31 OUTPUT
  32
  33 pir_error_output_like( <<'CODE', <<'OUTPUT', "load_bytecode on directory" );
  34 .sub main :main
  35     load_bytecode 't'
  36 .end
  37 CODE
  38 /t' is a directory/
  39 OUTPUT
  40
  41 pir_error_output_like( <<'CODE', <<'OUTPUT', "load_bytecode on non-existent file" );
  42 .sub main :main
  43         load_bytecode 'no_file_by_this_name'
  44 .end
  45 CODE
  46 /"load_bytecode" couldn't find file 'no_file_by_this_name'/
  47 OUTPUT
  48
  49 # Local Variables:
  50 #   mode: cperl
  51 #   cperl-indent-level: 4
  52 #   fill-column: 100
  53 # End:
  54 # vim: expandtab shiftwidth=4: