Commits

Toby Inkster committed 1d247c1

newer version of Wenity that supports --test-command

Comments (0)

Files changed (2)

share/Wenity.exe

Binary file modified.
 use Alien::Wenity;
 use IO::Prompt::Tiny qw(prompt);
 
+{
+	my $cmd = sprintf(
+		'"%s" --test-command',
+		Alien::Wenity->path,
+	);
+	like(qx{$cmd}, qr{\bok\b});
+}
+
 my $interactive = prompt("Interactive tests? (y/n)", "n");
-
 if ($interactive !~ /y/i)
 {
 	pass;
 	done_testing;
 	exit;
 }
-
-my $cmd = sprintf(
-	'"%s" --entry --text "Type PASS to pass the test."',
-	Alien::Wenity->path,
-);
-
-like(qx{$cmd}, qr{pass}i);
+else
+{
+	my $cmd = sprintf(
+		'"%s" --entry --text "Type PASS to pass the test."',
+		Alien::Wenity->path,
+	);
+	like(qx{$cmd}, qr{pass}i);
+}
 
 done_testing;