PIRC is gone

tools/install/smoke.pl

@@ -8,7 +8,7 @@
 use Getopt::Long;
 use File::Spec::Functions;
 
-use Test::More tests => 7;
+use Test::More tests => 6;
 
 =head1 NAME
 
@@ -71,7 +71,6 @@ sub quote {
 my $out;
 my $FH;
 my $parrot = quote(catfile($bindir, 'parrot'));
-my $pirc = quote(catfile($bindir, 'pirc'));
 my $nqp = quote(catfile($bindir, 'parrot-nqp'));
 
 #
@@ -117,23 +116,6 @@ sub quote {
 ok($out =~ /## <WSpace::TOP>/, "check PGE");
 unlink($filename);
 
-SKIP:
-{
-skip("pirc", 1) unless (-e $pirc);
-$filename = 'test.pir';
-open $FH, '>', $filename
-        or die "Can't open $filename ($!).\n";
-print $FH <<'PIR';
-.sub main
-    say "hello world!"
-.end
-PIR
-close $FH;
-$out = `$pirc -n $filename`;
-ok($out eq "ok\n", "check pirc");
-unlink($filename);
-}
-
 $filename = 'test.nqp';
 open $FH, '>', $filename
         or die "Can't open $filename ($!).\n";