r31612 - in /trunk/libdata-flow-perl: Changes Flow.pm META.yml debian/changelog t/Data-Flow.t

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

Author: ryan52-guest
Date: Sat Mar  7 07:04:30 2009
New Revision: 31612

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=31612
Log:
New upstream release

Added:
    trunk/libdata-flow-perl/META.yml
      - copied unchanged from r31611, branches/upstream/libdata-flow-perl/current/META.yml
Modified:
    trunk/libdata-flow-perl/Changes
    trunk/libdata-flow-perl/Flow.pm
    trunk/libdata-flow-perl/debian/changelog
    trunk/libdata-flow-perl/t/Data-Flow.t

Modified: trunk/libdata-flow-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-flow-perl/Changes?rev=31612&op=diff
==============================================================================
--- trunk/libdata-flow-perl/Changes (original)
+++ trunk/libdata-flow-perl/Changes Sat Mar  7 07:04:30 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: trunk/libdata-flow-perl/Flow.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-flow-perl/Flow.pm?rev=31612&op=diff
==============================================================================
--- trunk/libdata-flow-perl/Flow.pm (original)
+++ trunk/libdata-flow-perl/Flow.pm Sat Mar  7 07:04:30 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.

Modified: trunk/libdata-flow-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-flow-perl/debian/changelog?rev=31612&op=diff
==============================================================================
--- trunk/libdata-flow-perl/debian/changelog (original)
+++ trunk/libdata-flow-perl/debian/changelog Sat Mar  7 07:04:30 2009
@@ -1,9 +1,10 @@
-libdata-flow-perl (0.09-2) UNRELEASED; urgency=low
+libdata-flow-perl (1.02-1) UNRELEASED; urgency=low
 
   * Take over for the Debian Perl Group; Closes: #430978 -- RFA
   * add myself to Uploaders
+  * New upstream release
 
- -- Ryan Niebur <ryanryan52 at gmail.com>  Fri, 06 Mar 2009 18:02:00 -0800
+ -- Ryan Niebur <ryanryan52 at gmail.com>  Fri, 06 Mar 2009 23:04:03 -0800
 
 libdata-flow-perl (0.09-1) unstable; urgency=low
 

Modified: trunk/libdata-flow-perl/t/Data-Flow.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-flow-perl/t/Data-Flow.t?rev=31612&op=diff
==============================================================================
--- trunk/libdata-flow-perl/t/Data-Flow.t (original)
+++ trunk/libdata-flow-perl/t/Data-Flow.t Sat Mar  7 07:04:30 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}