[svn:parrot] r36502 - trunk/t/steps

[Infinoid at svn.parrot.org]

Author: Infinoid
Date: Mon Feb  9 18:34:28 2009
New Revision: 36502
URL: https://trac.parrot.org/parrot/changeset/36502

Log:
[t] Fix some test fallout from r36495.
r36495 patched the hardcoded format string but not the hardcoded test.

Modified:
   trunk/t/steps/auto_format-01.t

Modified: trunk/t/steps/auto_format-01.t
==============================================================================
--- trunk/t/steps/auto_format-01.t	Mon Feb  9 18:32:17 2009	(r36501)
+++ trunk/t/steps/auto_format-01.t	Mon Feb  9 18:34:28 2009	(r36502)
@@ -97,9 +97,12 @@
     );
 }
 {
+    use Config;
+    my $p5format = '%.15' . $Config{sPRIgldbl};
+    $p5format =~ s/"//g;; # Perl 5's Config value has embedded double quotes
     $conf->data->set( nv => 'long double' );
     auto::format::_set_floatvalfmt_nvsize($conf);
-    is($conf->data->get( 'floatvalfmt' ), '%Lf',
+    is($conf->data->get( 'floatvalfmt' ), $p5format,
         "floatvalfmt set as expected");
     is($conf->data->get( 'nvsize' ), $conf->data->get( 'hugefloatvalsize' ),
         "nvsize set as expected");