← Back to branch summary

~ubuntu-branches/debian/sid/eperl/sid

« back to all changes in this revision

Viewing changes to mod/Parse/t/04_precompile.t

  • Committer: Bazaar Package Importer
  • Author(s): Denis Barbier
  • Date: 2001-12-18 20:40:24 UTC
  • Revision ID: james.westby@ubuntu.com-20011218204024-kas01yyh4uj98q11
Tags: upstream-2.2.14
Import upstream version 2.2.14

Show diffs side-by-side

added added

removed removed

Lines of Context:
mod/Parse/t/04_precompile.t
 
1
 
 
2
BEGIN { $| = 1; print "1..1\n"; }
 
3
 
 
4
use Parse::ePerl;
 
5
 
 
6
$in = <<'EOT';
 
7
return "foo";
 
8
EOT
 
9
$rc = Parse::ePerl::Precompile({
 
10
    Script         => $in, 
 
11
        Result         => \$out
 
12
});
 
13
print STDERR @_;
 
14
if ($rc == 1 and &$out eq "foo") {
 
15
        print "ok 1\n";
 
16
}
 
17
else {
 
18
        print "not ok 1\n";
 
19
}
 
20