r31610 - in /branches/upstream/libdata-flow-perl/current: Changes Flow.pm META.yml t/Data-Flow.t

[ryan52-guest at users.alioth.debian.org]

Author: ryan52-guest
Date: Sat Mar  7 07:02:59 2009
New Revision: 31610

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=31610
Log:
[svn-upgrade] Integrating new upstream version, libdata-flow-perl (1.02)

Added:
    branches/upstream/libdata-flow-perl/current/META.yml
Modified:
    branches/upstream/libdata-flow-perl/current/Changes
    branches/upstream/libdata-flow-perl/current/Flow.pm
    branches/upstream/libdata-flow-perl/current/t/Data-Flow.t

Modified: branches/upstream/libdata-flow-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-flow-perl/current/Changes?rev=31610&op=diff
==============================================================================
--- branches/upstream/libdata-flow-perl/current/Changes (original)
+++ branches/upstream/libdata-flow-perl/current/Changes Sat Mar  7 07:02:59 2009
@@ -14,3 +14,7 @@
       Move test to ./t.
       Undocumented method unset().
       Allow 'prerequisites' to be supplied alone if it sets the value.
+1.00  Test suite was relying on presense of cat.
+      Make test suite strict.
+1.01  v1.00 was erroneously based on obsolete v0.06.
+1.02  Test suite was STILL relying on presense of cat.

Modified: branches/upstream/libdata-flow-perl/current/Flow.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-flow-perl/current/Flow.pm?rev=31610&op=diff
==============================================================================
--- branches/upstream/libdata-flow-perl/current/Flow.pm (original)
+++ branches/upstream/libdata-flow-perl/current/Flow.pm Sat Mar  7 07:02:59 2009
@@ -12,7 +12,7 @@
 # Do not simply export all your public functions/methods/constants.
 @EXPORT = qw(
 );
-$VERSION = '0.09';
+$VERSION = '1.02';	# The only change 0.09 --> 1.02 is this line ;-)
 
 
 # Preloaded methods go here.

Added: branches/upstream/libdata-flow-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-flow-perl/current/META.yml?rev=31610&op=file
==============================================================================
--- branches/upstream/libdata-flow-perl/current/META.yml (added)
+++ branches/upstream/libdata-flow-perl/current/META.yml Sat Mar  7 07:02:59 2009
@@ -1,0 +1,10 @@
+# http://module-build.sourceforge.net/META-spec.html
+#XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
+name:         Data-Flow
+version:      1.02
+version_from: Flow.pm
+installdirs:  site
+requires:
+
+distribution_type: module
+generated_by: ExtUtils::MakeMaker version 6.30

Modified: branches/upstream/libdata-flow-perl/current/t/Data-Flow.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-flow-perl/current/t/Data-Flow.t?rev=31610&op=diff
==============================================================================
--- branches/upstream/libdata-flow-perl/current/t/Data-Flow.t (original)
+++ branches/upstream/libdata-flow-perl/current/t/Data-Flow.t Sat Mar  7 07:02:59 2009
@@ -6,7 +6,9 @@
 # Change 1..1 below to 1..last_test_to_print .
 # (It may become useful if the test is moved to ./t subdirectory.)
 
+use strict;
 BEGIN {print "1..12\n";}
+my $loaded;
 END {print "not ok 1\n" unless $loaded;}
 use Data::Flow;
 $loaded = 1;
@@ -25,6 +27,8 @@
   open F, "< $f" or die "Can't open '$f' for read: $!";
   scalar <F>;
 }
+
+my ($recipe,%request);
 
 $recipe = {
 	   path1 => { default => './MANI'},
@@ -57,7 +61,7 @@
 #$data = {};
 
 my $request = new Data::Flow $recipe;
-tie %request, Data::Flow, $recipe;
+tie %request, 'Data::Flow', $recipe;
 
 #request($recipe, $data, 'text');
 
@@ -65,8 +69,12 @@
 $request->set('path2', 'FEST');
 my $set2 = $request->already_set('path2');
 
-print $request->get('text') eq `cat MANIFEST` 
-  ? "ok 2\n" : "not ok 2\n";
+my $mytext = `cat MANIFEST`;	# Read differently than tested code (if we can)
+$mytext = `$^X -pwle0 MANIFEST` unless $mytext;
+$mytext = do {local $/; local *IN; open IN, 'MANIFEST' and <IN>} unless $mytext;
+
+
+print $request->get('text') eq $mytext ? "ok 2\n" : "not ok 2\n";
 print $request->get('text2') eq  $request->get('text') 
   ? "ok 3\n" : "not ok 3\n";
 print $request->get('text3') eq  $request->get('text') 
@@ -74,8 +82,7 @@
 
 $request{path2} = 'FEST';
 
-print $request{text} eq `cat MANIFEST` 
-  ? "ok 5\n" : "not ok 5\n";
+print $request{text} eq $mytext ? "ok 5\n" : "not ok 5\n";
 print $request->get('text2') eq  $request{text2} 
   ? "ok 6\n" : "not ok 6\n";
 print $request->get('text3') eq  $request{text3}