new test script sv.t

This test script currently contains a test case for RT #90077.
eserte · Nov 6, 2013 · f978a13 · f978a13
1 parent 6d854ee
commit f978a13
Showing 1 changed file with 30 additions and 0 deletions.
diff --git a/t/sv.t b/t/sv.t
@@ -0,0 +1,30 @@
+#!/usr/bin/perl -w
+# -*- cperl -*-
+
+#
+# Author: Slaven Rezic
+#
+
+use strict;
+use Test::More 'no_plan';
+use Tk;
+
+my $mw = tkinit;
+$mw->geometry('+0+0');
+
+{
+    # RT #90077
+    my $val = 0.20;
+    { no warnings 'void'; $val * 2 }
+    is $val * 1, 0.20;
+
+    {
+	my $tl = $mw->Toplevel;
+	$tl->Entry(-textvariable => \$val)->pack;
+	$tl->destroy;
+    }
+    is $val * 1, 0.20 or
+	do { require Devel::Peek; Devel::Peek::Dump($val) }; # pv_dump says: FLAGS = (PADMY,IOK,NOK,POK,pIOK,pNOK,pPOK,UTF8)
+}
+
+__END__