[Module-build-checkins] Module-Build/t metadata.t,1.9,1.10

[Ken W. <kwi...@us...>]

Update of /cvsroot/module-build/Module-Build/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16078/t

Modified Files:
	metadata.t 
Log Message:
Handle some YAML escaping better

Index: metadata.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/metadata.t,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- metadata.t	5 Nov 2005 15:58:13 -0000	1.9
+++ metadata.t	29 Nov 2005 05:03:09 -0000	1.10
@@ -3,7 +3,7 @@
 use lib 't/lib';
 use strict;
 
-use Test::More tests => 43;
+use Test::More tests => 46;
 
 
 use File::Spec ();
@@ -562,6 +562,14 @@
 is_deeply($mb->find_dist_packages, {});
 
 
+{
+  # Put our YAML escaper through a few tests.  This isn't part of the M::B API.
+  my $yq = sub {Module::Build->_yaml_quote_string(@_)};
+  like $yq->(''), qr{^ (['"]) \1 $}x;
+  is $yq->('Foo "bar" baz'), q{'Foo "bar" baz'};
+  is $yq->("Foo 'bar' baz"), q{"Foo 'bar' baz"};
+}
+
 ############################################################
 # cleanup
 chdir( $cwd ) or die "Can't chdir to '$cwd': $!";