40 lines
1.1 KiB
Diff
40 lines
1.1 KiB
Diff
|
From 567210e099deb8b3c77e8d24161563f8bdec4a08 Mon Sep 17 00:00:00 2001
|
||
|
|
From: Slaven Rezic <slaven@rezic.de>
|
||
|
|
Date: Fri, 14 Mar 2014 16:05:09 +0100
|
||
|
|
Subject: [PATCH 03/10] test case for Tk::MainWindow::Create without args
|
||
|
|
MIME-Version: 1.0
|
||
|
|
Content-Type: text/plain; charset=UTF-8
|
||
|
|
Content-Transfer-Encoding: 8bit
|
||
|
|
|
||
|
|
Signed-off-by: Petr Písař <ppisar@redhat.com>
|
||
|
|
---
|
||
|
|
t/create.t | 5 ++++-
|
||
|
|
1 file changed, 4 insertions(+), 1 deletion(-)
|
||
|
|
|
||
|
|
diff --git a/t/create.t b/t/create.t
|
||
|
|
index 8843acc..a367530 100644
|
||
|
|
--- a/t/create.t
|
||
|
|
+++ b/t/create.t
|
||
|
|
@@ -80,7 +80,7 @@ BEGIN
|
||
|
|
($^O eq 'cygwin' and defined($Tk::platform)
|
||
|
|
and $Tk::platform eq 'MSWin32'));
|
||
|
|
|
||
|
|
- plan test => (15*@class+3);
|
||
|
|
+ plan test => (15*@class+4);
|
||
|
|
|
||
|
|
};
|
||
|
|
|
||
|
|
@@ -93,6 +93,9 @@ ok($@, "", "can't create MainWindow");
|
||
|
|
ok(Tk::Exists($mw), 1, "MainWindow creation failed");
|
||
|
|
eval { $mw->geometry('+10+10'); }; # This works for mwm and interactivePlacement
|
||
|
|
|
||
|
|
+eval { Tk::MainWindow::Create() };
|
||
|
|
+ok($@ =~ qr{wrong # args: should be .*Tk::MainWindow::Create pathName}, 1, "no segfault for Tk::MainWindow::Create without args");
|
||
|
|
+
|
||
|
|
my $w;
|
||
|
|
foreach my $class (@class)
|
||
|
|
{
|
||
|
|
--
|
||
|
|
1.9.3
|
||
|
|
|