[svn:parrot] r37264 - in trunk: config/gen languages/t lib/Parrot/Docs/Section tools/install

[jquelin at svn.parrot.org]

Author: jquelin
Date: Tue Mar 10 08:10:16 2009
New Revision: 37264
URL: https://trac.parrot.org/parrot/changeset/37264

Log:
yet other befunge references squashed

Modified:
   trunk/config/gen/languages.pm
   trunk/languages/t/harness
   trunk/lib/Parrot/Docs/Section/Languages.pm
   trunk/tools/install/smoke_languages.pl

Modified: trunk/config/gen/languages.pm
==============================================================================
--- trunk/config/gen/languages.pm	Tue Mar 10 08:05:49 2009	(r37263)
+++ trunk/config/gen/languages.pm	Tue Mar 10 08:10:16 2009	(r37264)
@@ -37,7 +37,7 @@
     $data{result} = q{};
     $data{default_languages} = qq{
         abc
-        befunge bf
+        bf
         cardinal chitchat cola c99
         ecmascript
         forth

Modified: trunk/languages/t/harness
==============================================================================
--- trunk/languages/t/harness	Tue Mar 10 08:05:49 2009	(r37263)
+++ trunk/languages/t/harness	Tue Mar 10 08:10:16 2009	(r37264)
@@ -79,7 +79,7 @@
           split( /\s*,\s*/, $languages_list )
           :
           qw( abc
-              befunge bf
+              bf
               cola
               dotnet
               jako

Modified: trunk/lib/Parrot/Docs/Section/Languages.pm
==============================================================================
--- trunk/lib/Parrot/Docs/Section/Languages.pm	Tue Mar 10 08:05:49 2009	(r37263)
+++ trunk/lib/Parrot/Docs/Section/Languages.pm	Tue Mar 10 08:10:16 2009	(r37264)
@@ -42,7 +42,6 @@
         $self->new_item( '', 'languages/t/harness' ),
         $self->new_section( 'abc',         'abc.html',        '', 'languages/abc' ),
         $self->new_section( 'BASIC',       'basic.html',      '', 'languages/BASIC' ),
-        $self->new_section( 'Befunge',     'befunge.html',    '', 'languages/befunge' ),
         $self->new_section( 'BF',          'bf.html',         '', 'languages/bf' ),
         $self->new_section( 'C99',         'c99.html',        '', 'languages/c99' ),
         $self->new_section( 'Cardinal',    'cardinal.html',   '', 'languages/cardinal' ),

Modified: trunk/tools/install/smoke_languages.pl
==============================================================================
--- trunk/tools/install/smoke_languages.pl	Tue Mar 10 08:05:49 2009	(r37263)
+++ trunk/tools/install/smoke_languages.pl	Tue Mar 10 08:10:16 2009	(r37264)
@@ -9,7 +9,7 @@
 use Getopt::Long;
 use File::Spec::Functions;
 
-use Test::More tests => 30;
+use Test::More tests => 29;
 
 =head1 NAME
 
@@ -93,30 +93,6 @@
 
 SKIP:
 {
-skip("Befunge", 1) unless (-d "$langdir/befunge");
-$filename = 'test.bef';
-open $FH, '>', $filename
-        or die "Can't open $filename ($!).\n";
-print $FH <<'CODE';
-<                   p 04   "v"
-  ^ >
-I                       @   _v
-                            !,
-  _   2! |                  :
-    . \-  %2/36 `21  $   <  ^<   "<- then everything is ok!" +37
-  !      #
-  3      >
-         <       v  ,  _ ^# -8 : g20 "f you can see a 4 here ->" 8 4
-                 > :8- ^
-CODE
-close $FH;
-$out = `$parrot $langdir/befunge/befunge.pbc $filename`;
-ok($out eq "If you can see a 4 here ->4 <- then everything is ok!\n", "check befunge");
-unlink($filename);
-}
-
-SKIP:
-{
 skip("bf", 3) unless (-d "$langdir/bf");
 $out = `$parrot $langdir/bf/bf.pbc`;
 ok($out =~ /^usage/, "check bf");