diff options
Diffstat (limited to 't/base.lex')
| -rw-r--r-- | t/base.lex | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/t/base.lex b/t/base.lex index 015f442c77..e778c72caf 100644 --- a/t/base.lex +++ b/t/base.lex @@ -1,8 +1,8 @@ #!./perl -# $Header: base.lex,v 1.0.1.1 88/01/28 10:37:00 root Exp $ +# $Header: base.lex,v 2.0 88/06/05 00:12:06 root Exp $ -print "1..6\n"; +print "1..7\n"; $ # this is the register <space> = 'x'; @@ -30,3 +30,8 @@ eval 'while (0) { eval '$foo{1} / 1;'; if (!$@) {print "ok 6\n";} else {print "not ok 6\n";} + +eval '$foo = 123+123.4+123e4+123.4E5+123.4e+5+.12;'; + +$foo = int($foo * 100 + .5); +if ($foo eq 2591024652) {print "ok 7\n";} else {print "not ok 7\n";} |