develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r35992 - in trunk: . languages/lazy-k languages/lazy-k/examples languages/lazy-k/t

From:
bernhard
Date:
January 25, 2009 03:38
Subject:
[svn:parrot] r35992 - in trunk: . languages/lazy-k languages/lazy-k/examples languages/lazy-k/t
Message ID:
20090125113821.266EDCB9AE@x12.develooper.com
Author: bernhard
Date: Sun Jan 25 03:38:19 2009
New Revision: 35992

Added:
   trunk/languages/lazy-k/examples/
   trunk/languages/lazy-k/examples/calc.lazy   (props changed)
      - copied unchanged from r35989, /trunk/languages/lazy-k/calc.lazy
   trunk/languages/lazy-k/examples/cat.lazy   (props changed)
      - copied unchanged from r35989, /trunk/languages/lazy-k/cat.lazy
   trunk/languages/lazy-k/examples/powers2.lazy   (props changed)
      - copied unchanged from r35989, /trunk/languages/lazy-k/powers2.lazy
Removed:
   trunk/languages/lazy-k/calc.lazy
   trunk/languages/lazy-k/cat.lazy
   trunk/languages/lazy-k/powers2.lazy
Modified:
   trunk/MANIFEST
   trunk/languages/lazy-k/t/calc.t
   trunk/languages/lazy-k/t/cat.t

Log:
[lazy-k] Put the example scripts into the new dir 'examples'


Modified: trunk/MANIFEST
==============================================================================
--- trunk/MANIFEST	(original)
+++ trunk/MANIFEST	Sun Jan 25 03:38:19 2009
@@ -1,7 +1,7 @@
 # ex: set ro:
 # $Id$
 #
-# generated by tools/dev/mk_manifest_and_skip.pl Sun Jan 25 10:38:08 2009 UT
+# generated by tools/dev/mk_manifest_and_skip.pl Sun Jan 25 11:36:49 2009 UT
 #
 # See tools/dev/install_files.pl for documentation on the
 # format of this file.
@@ -1616,11 +1616,11 @@
 languages/lazy-k/Configure.pl                               []
 languages/lazy-k/MAINTAINER                                 []
 languages/lazy-k/README                                     []
-languages/lazy-k/calc.lazy                                  []
-languages/lazy-k/cat.lazy                                   []
 languages/lazy-k/config/makefiles/root.in                   []
+languages/lazy-k/examples/calc.lazy                         []
+languages/lazy-k/examples/cat.lazy                          []
+languages/lazy-k/examples/powers2.lazy                      []
 languages/lazy-k/lazy.pir                                   []
-languages/lazy-k/powers2.lazy                               []
 languages/lazy-k/t/calc.t                                   []
 languages/lazy-k/t/cat.t                                    []
 languages/lazy-k/t/harness                                  []

Modified: trunk/languages/lazy-k/t/calc.t
==============================================================================
--- trunk/languages/lazy-k/t/calc.t	(original)
+++ trunk/languages/lazy-k/t/calc.t	Sun Jan 25 03:38:19 2009
@@ -3,11 +3,11 @@
 
 =head1 NAME
 
-lazy-k/t/calc.t - testing calc.lazy
+t/calc.t - testing calc.lazy
 
 =head1 SYNOPSIS
 
-    % cd languages && perl lazy-k/t/calc.t
+    % cd languages/lazy-k && perl lazy-k/t/calc.t
 
 =head1 DESCRIPTION
 
@@ -32,7 +32,7 @@
 
 my $parrot    = File::Spec->catfile( File::Spec->updir(), File::Spec->updir(), $PConfig{test_prog} );
 my $lazy_k    = "$parrot lazy.pbc";
-my $source_fn = 'calc.lazy'; 
+my $source_fn = 'examples/calc.lazy'; 
 
 # XXX This does not look portable.
 my $cmd;

Modified: trunk/languages/lazy-k/t/cat.t
==============================================================================
--- trunk/languages/lazy-k/t/cat.t	(original)
+++ trunk/languages/lazy-k/t/cat.t	Sun Jan 25 03:38:19 2009
@@ -1,4 +1,4 @@
-# Copyright (C) 2005-2007, The Perl Foundation.
+# Copyright (C) 2005-2009, The Perl Foundation.
 # $Id$
 
 =head1 NAME
@@ -7,7 +7,7 @@
 
 =head1 SYNOPSIS
 
-    % cd languages && perl lazy-k/t/cat.t
+    % cd languages/lazy-k && perl t/cat.t
 
 =head1 DESCRIPTION
 
@@ -24,7 +24,6 @@
 use FindBin;
 use lib "$FindBin::Bin/../../../lib";
 
-use Data::Dumper;
 use Test::More       tests => 1;
 use Parrot::Config   qw(%PConfig);
 use File::Spec       ();
@@ -33,7 +32,7 @@
 
 my $parrot    = File::Spec->catfile( File::Spec->updir(), File::Spec->updir(), $PConfig{test_prog} );
 my $lazy_k    = "$parrot lazy.pbc";
-my $source_fn = 'cat.lazy'; 
+my $source_fn = 'examples/cat.lazy'; 
 
 # XXX This does not look portable.
 my $cmd;
@@ -45,5 +44,4 @@
     $cmd = qq{echo '1+2*3' | $lazy_k $source_fn};
 }
 
-# die Dumper( $cmd );
 is( `$cmd`, "1+2*3\n", 'cat.lazy' );



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About