t/pmc/config.t

   1 #! perl
   2 # Copyright (C) 2005-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 use Parrot::Config;
  11 use Cwd qw(cwd);
  12
  13 =head1 NAME
  14
  15 t/pmc/config.t - Builtin Config
  16
  17 =head1 SYNOPSIS
  18
  19     % prove t/pmc/config.t
  20
  21 =head1 DESCRIPTION
  22
  23 Tests the parrot config interface.
  24
  25 =cut
  26
  27 pir_output_is( <<'CODE', <<'OUT', "get config hash" );
  28 .sub main :main
  29     .include "iglobals.pasm"
  30     .local pmc config_hash, interp
  31     interp = getinterp
  32     config_hash = interp[.IGLOBALS_CONFIG_HASH]
  33     typeof $S0, config_hash
  34     print $S0
  35     print "\n"
  36 .end
  37 CODE
  38 Hash
  39 OUT
  40
  41 pir_output_is( <<'CODE', ($^O eq 'MSWin32' ? lc(cwd) : cwd), "prefix" );
  42 .sub main :main
  43     load_bytecode "config.pbc"
  44     .include "iglobals.pasm"
  45     .local pmc config_hash, interp, cfg
  46     interp = getinterp
  47     config_hash = interp[.IGLOBALS_CONFIG_HASH]
  48     $S0 = config_hash["prefix"]
  49     cfg = _config()
  50     $S1 = cfg['osname']
  51     if $S1 != 'MSWin32' goto sayit
  52     $S0 = downcase $S0
  53   sayit:
  54     print $S0
  55 .end
  56 CODE
  57
  58 pir_output_is( <<'CODE', <<'OUT', "load src/pbc from library path" );
  59 .sub main :main
  60     load_bytecode "config.pir"
  61     print "ok 1\n"
  62     load_bytecode "config.pbc"
  63     print "ok 2\n"
  64 .end
  65 CODE
  66 ok 1
  67 ok 2
  68 OUT
  69
  70 # Local Variables:
  71 #   mode: cperl
  72 #   cperl-indent-level: 4
  73 #   fill-column: 100
  74 # End:
  75 # vim: expandtab shiftwidth=4: