perl-compiler/t/issue256.t

#! /usr/bin/env perl
# http://code.google.com/p/perl-compiler/issues/detail?id=256
# initialize all global vars
use strict;
BEGIN {
  unshift @INC, 't';
  require "test.pl";
}
my $pv_vars = {';' => "\34",
               '"' => " ",
               #"\\" => undef,
               #',' => undef,
               '/' => "/n",
               '^A'  => undef,
               '^L'  => "\f",
               ':'  => " \n-",
               '^' => "STDOUT_TOP",
               '~' => "STDOUT"};
my $iv_vars = {'^H' => 0,
               '|' => 0,
               '%' => 0,
               '-' => 60,
               '=' => 60,
               #'{^UNICODE}' => 0,
               #'{^UTF8LOCALE}' => 1
               };
use Test::More tests => 4;

my $script = '';
$script .= sprintf('BEGIN{ $%s = "a"} $%s = "a"; print qq{not ok - \$%s = $%s\n} if $%s ne "a";'."\n", 
                   $_, $_, $_, $_, $_) for keys %$pv_vars;
$script .= sprintf('BEGIN{ $%s = 1} $%s = 1; print qq{not ok - \$%s = $%s\n} if $%s != 1;'."\n",
                   $_, $_, $_, $_, $_) for keys %$iv_vars;
$script .= 'BEGIN{ $\\ = "\n"; } $\\ = "\n"; print qq{not ok - \$\\ = $\\\n} if $\\ ne "\n";'."\n";
$script .= qq(print "ok\\n";);

ctestok(1,'C,-O3','ccode256i',$script,'#256 initialize most global vars');
ctestok(2,'C,-O3','ccode256i',
        'BEGIN{$, = " "; } $, = " "; print $, eq " " ? "ok\n" : qq{not ok - \$, = $,\n}',
        '#256 initialize $,');

# need -C -CL switches to set UNICODE
if ($] >= 5.010001) {
  ctestok(3,'C,-O3 -C','ccode231i',
        'print ${^UNICODE} ? "ok" : "not ok",  " - \${^UNICODE} = ${^UNICODE}\n";',
        '#231 initialize ${^UNICODE}');
  ctestok(4,'C,-O3 -CL','ccode231i',
        'print ${^UTF8LOCALE} == 1 ? "ok\n" : qq{not ok - \${^UTF8LOCALE} = ${^UTF8LOCALE}\n};',
        '#231 initialize ${^UTF8LOCALE}');
} else {
  print "ok 3 - skip -C with <5.10.1\n";
  print "ok 4 - skip -CL with <5.10.1\n";
}