From 567210e099deb8b3c77e8d24161563f8bdec4a08 Mon Sep 17 00:00:00 2001 From: Slaven Rezic 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ř --- 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