Skip to content

Commit a0f6459

Browse files
committed
try to fix test
1 parent 58cd533 commit a0f6459

2 files changed

Lines changed: 13 additions & 13 deletions

File tree

lib/Mi6/Helper.rakumod

Lines changed: 6 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -402,14 +402,14 @@ sub mi6-help() is export {
402402
403403
Modes:
404404
new=X - Creates a new module (named 'X') in the current directory
405-
by executing 'mi6', then modifying files and adding new
406-
files in the new repository to add the benefits produced
407-
by this module. NOTE: The program will abort if directory
405+
by executing 'mi6', then modifying files and adding new
406+
files in the new repository to add the benefits produced
407+
by this module. NOTE: The program will abort if directory
408408
'X' exists.
409409
410410
Options:
411-
dir=P - Selects directory 'P' as the parent directory for the
412-
operations (default is '.', the current directory, i.e.,
411+
dir=P - Selects directory 'P' as the parent directory for the
412+
operations (default is '.', the current directory, i.e.,
413413
'\$*CWD').
414414
415415
force - Allows the program to continue without a hidden file
@@ -517,7 +517,7 @@ sub run-args(@args) is export {
517517
HERE
518518
exit;
519519
=end comment
520-
520+
521521
}
522522
else {
523523
my $res = prompt qq:to/HERE/;

t/2-check-will-fail-non-empty-repo-dir.t

Lines changed: 7 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -23,16 +23,16 @@ mkdir $tdir;
2323
my $proc;
2424
lives-ok {
2525
say "Running 'mi6-helper'..." if $debug;
26-
$proc = run "raku", "-Ilib", "bin/mi6-helper", "force", "dir=$tdir", "new=Foo::Bar";
26+
$proc = run "bin/mi6-helper", "force", "dir=$tdir", "new=Foo::Bar";
2727
my $e = $proc.exitcode;
2828
is $e, 0, "exit code is $e";
2929
}, "gen new mod Foo::Bar in dir '$tdir'";
3030

31-
dies-ok {
32-
# from @ugexe: do NOT use proc here, run only
33-
# this works:
34-
run "raku", "-Ilib", "bin/mi6-helper", "force", "dir=$tdir", "new=Foo::Bar";
35-
}, "expected to fail: existing dir for gen new mod Foo::Bar in dir '$tdir'";
31+
# from @ugexe: do NOT use proc here, run only
32+
# this works:
33+
#run "raku", "-Ilib", "bin/mi6-helper", "force", "dir=$tdir", "new=Foo::Bar";
34+
$proc = run "bin/mi6-helper", "force", "dir=$tdir", "new=Foo::Bar";
35+
my $e = $proc.exitcode;
36+
is $e, 1, "expected to fail: existing dir for gen new mod Foo::Bar in dir '$tdir'";
3637

3738
done-testing;
38-

0 commit comments

Comments
 (0)