diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2015-01-26 22:20:04 -0500 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2015-01-28 06:52:34 -0500 |
commit | a3c662ac54618d9fcd721623abfb9b4b35b07967 (patch) | |
tree | 2ebf4195468bc517d899e655d1465748ca1916b5 /ext | |
parent | 5563f4573c9a18a83c4aa768343985e14f06e1b4 (diff) | |
download | perl-a3c662ac54618d9fcd721623abfb9b4b35b07967.tar.gz |
infnan: grok flag expectation fixes
Diffstat (limited to 'ext')
-rw-r--r-- | ext/XS-APItest/t/grok.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ext/XS-APItest/t/grok.t b/ext/XS-APItest/t/grok.t index e6093f21dd..f66717bb7c 100644 --- a/ext/XS-APItest/t/grok.t +++ b/ext/XS-APItest/t/grok.t @@ -93,14 +93,14 @@ my @groks = [ "Inf", 0, undef, IS_NUMBER_INFINITY | IS_NUMBER_NOT_INT ], [ "In", 0, undef, 0 ], - [ "Infin",0, undef, 0 ], + [ "Infin",0, undef, IS_NUMBER_INFINITY | IS_NUMBER_NOT_INT | IS_NUMBER_TRAILING ], # this doesn't work and hasn't been needed yet #[ "Infin",PERL_SCAN_TRAILING, undef, # IS_NUMBER_INFINITY | IS_NUMBER_NOT_INT | IS_NUMBER_TRAILING ], [ "nan", 0, undef, IS_NUMBER_NAN | IS_NUMBER_NOT_INT ], # even without PERL_SCAN_TRAILING nan can have weird stuff trailing - [ "nanx", 0, undef, IS_NUMBER_NAN | IS_NUMBER_NOT_INT ], - [ "nanx", PERL_SCAN_TRAILING, undef, IS_NUMBER_NAN | IS_NUMBER_NOT_INT ], + [ "nanx", 0, undef, IS_NUMBER_NAN | IS_NUMBER_NOT_INT | IS_NUMBER_TRAILING ], + [ "nanx", PERL_SCAN_TRAILING, undef, IS_NUMBER_NAN | IS_NUMBER_NOT_INT | IS_NUMBER_TRAILING ], ); for my $grok (@groks) { |