view release on metacpan or  search on metacpan

t/60_compile.t  view on Meta::CPAN

3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
use strict;
use warnings;
use Devel::Peek;
use Data::Dumper;
 
my ($source, $local);
BEGIN { $source = 'local/test.C'; $local = -r $source; }
 
use Test::More tests => ($local ? 9 : 4);
 
select STDERR;
$|++;
select STDOUT;
$|++;
 
$Data::Dumper::Indent = 1;
 
use_ok('Anarres::Mud::Driver::Program');
use_ok('Anarres::Mud::Driver::Compiler');
use_ok('Anarres::Mud::Driver::Efun::Core');
 
my $compiler = new Anarres::Mud::Driver::Compiler;
ok(defined($compiler), 'We constructed a compiler');