This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
An empty test.
[perl5.git] / lib / perl5db / dumpvar.t
1 #!./perl -- -*- mode: cperl; cperl-indent-level: 4 -*-
2
3 BEGIN {
4     chdir 't' if -d 't';
5     @INC = '../lib';
6     unless (find PerlIO::Layer 'perlio') { # PerlIO::scalar
7         print "1..0 # Skip: not perlio\n";
8         exit 0;
9     }
10 }
11
12 use strict;
13
14 $|=1;
15
16 my @prgs;
17 {
18     local $/;
19     @prgs = split "########\n", <DATA>;
20     close DATA;
21 }
22
23 use Test::More;
24
25 plan tests => scalar @prgs;
26
27 require "dumpvar.pl";
28
29 for (@prgs) {
30     my($prog, $expected) = split(/\nEXPECT\n?/, $_);
31     open my $select, ">", \my $got or die;
32     select $select;
33     eval $prog;
34     my $ERR = $@;
35     close $select;
36     select STDOUT;
37     if ($ERR) {
38         ok(0, "$prog - $ERR");
39     } else {
40         is($got, $expected, $prog);
41     }
42 }
43
44 __END__
45 dumpValue(1);
46 EXPECT
47 1
48 ########
49 dumpValue("1\n2\n3");
50 EXPECT
51 '1
52 2
53 3'
54 ########
55 dumpValue([1..3],1);
56 EXPECT
57 0  1
58 1  2
59 2  3
60 ########
61 dumpValue({1..4},1);
62 EXPECT
63 1 => 2
64 3 => 4
65 ########