tools/install/smoke.pl

   1 #! perl
   2 # Copyright (C) 2007-2009, Parrot Foundation.
   3 # $Id$
   4
   5 use strict;
   6 use warnings;
   7 use 5.008;
   8
   9 use Getopt::Long;
  10 use File::Spec::Functions;
  11
  12 use Test::More tests => 7;
  13
  14 =head1 NAME
  15
  16 tools/install/smoke.pl - checks parrot in install directory
  17
  18 =head1 SYNOPSIS
  19
  20 parrot in install tree
  21
  22     % cd /usr/local/parrot-$version
  23     % perl smoke.pl
  24
  25 parrot in build tree
  26
  27     % perl tools/install/smoke.pl --bindir=.
  28
  29 test installation in DESTDIR:
  30
  31     % cd /usr/src/parrot
  32     % mkdir .inst
  33     % make install DESTDIR=.inst
  34     % perl tools/install/smoke.pl DESTDIR=.inst
  35
  36 =head1 DESCRIPTION
  37
  38 Checks that most of things run (or just start) into the install directory,
  39 try to detect missing parts.
  40
  41 =head1 OPTIONS
  42
  43 =over
  44
  45 =item --bindir=/usr/bin
  46
  47 Override default value : 'bin'
  48
  49 =back
  50
  51 =cut
  52
  53 my ($bindir, $DESTDIR);
  54 my $opts = GetOptions(
  55     'bindir=s'  => \$bindir,
  56     'DESTDIR=s' => \$DESTDIR,
  57 );
  58
  59 $bindir = 'bin' unless $bindir;
  60
  61 chdir $DESTDIR if ($DESTDIR);
  62
  63 sub quote {
  64     my $exe = shift;
  65     $exe .= '.exe' if ($^O eq 'MSWin32');
  66     $exe = '"' . $exe . '"' if ($exe =~ / /);
  67     return $exe;
  68 }
  69
  70 my $filename;
  71 my $exe;
  72 my $out;
  73 my $FH;
  74 my $parrot = quote(catfile($bindir, 'parrot'));
  75 my $pirc = quote(catfile($bindir, 'pirc'));
  76 my $nqp = quote(catfile($bindir, 'parrot-nqp'));
  77
  78 #
  79 # parrot executable
  80 #
  81
  82 $exe = quote(catfile($bindir, 'pbc_merge'));
  83 $out = `$exe`;
  84 ok($out =~ /^pbc_merge/, "check pbc_merge");
  85
  86 $exe = quote(catfile($bindir, 'pbc_dump'));
  87 $out = `$exe`;
  88 ok($out =~ /^pbc_dump/, "check pbc_dump");
  89
  90 ok(system("$parrot -V") == 0, "display parrot version");
  91
  92 $out = `$parrot -V`;
  93 $out =~ m/version (\S+) built/;
  94 my $version = $1;
  95
  96 my $libdir = ($bindir eq 'bin')
  97            ? ($^O eq 'MSWin32') ? 'lib/parrot/library' : "lib/parrot/$version/library"
  98            : 'runtime/parrot/library';
  99
 100 my $compdir = ($bindir eq 'bin')
 101            ? ($^O eq 'MSWin32') ? 'lib/parrot/languages' : "lib/parrot/$version/languages"
 102             : 'compilers';
 103
 104 #
 105 # some compiler tools
 106 #
 107
 108 $filename = 'test.pg';
 109 open $FH, '>', $filename
 110         or die "Can't open $filename ($!).\n";
 111 print $FH <<'PGE';
 112 grammar WSpace
 113
 114 token TOP { \s* }
 115 PGE
 116 close $FH;
 117 $out = `$parrot $libdir/PGE/Perl6Grammar.pbc $filename`;
 118 ok($out =~ /## <WSpace::TOP>/, "check PGE");
 119 unlink($filename);
 120
 121 SKIP:
 122 {
 123 skip("pirc", 1) unless (-e $pirc);
 124 $filename = 'test.pir';
 125 open $FH, '>', $filename
 126         or die "Can't open $filename ($!).\n";
 127 print $FH <<'PIR';
 128 .sub main
 129     say "hello world!"
 130 .end
 131 PIR
 132 close $FH;
 133 $out = `$pirc -n $filename`;
 134 ok($out eq "ok\n", "check pirc");
 135 unlink($filename);
 136 }
 137
 138 $filename = 'test.nqp';
 139 open $FH, '>', $filename
 140         or die "Can't open $filename ($!).\n";
 141 print $FH "say('hello world!');\n";
 142 close $FH;
 143 $out = `$nqp $filename`;
 144 ok($out eq "hello world!\n", "check nqp-rx");
 145 unlink($filename);
 146
 147 # compilers/tge is typically not installed
 148 $filename = 'test.tg';
 149 open $FH, '>', $filename
 150         or die "Can't open $filename ($!).\n";
 151 print $FH "transform past (ROOT) { }\n";
 152 close $FH;
 153 $out = `$parrot $compdir/tge/tgc.pir $filename`;
 154 ok($out =~ /^\n\.sub '_ROOT_past'/, "check TGE");
 155 unlink($filename);
 156
 157 # Local Variables:
 158 #   mode: cperl
 159 #   cperl-indent-level: 4
 160 #   fill-column: 100
 161 # End:
 162 # vim: expandtab shiftwidth=4:
 163