Fix debug option as it enables to output both user input and reply fr…

…om gnuplot
titsuki · Mar 20, 2023 · d29358b · d29358b
1 parent 06167d0
commit d29358b
Show file tree

Hide file tree

Showing 3 changed files with 13 additions and 2 deletions.
diff --git a/histogram.png b/histogram.png
diff --git a/lib/Chart/Gnuplot.pm6 b/lib/Chart/Gnuplot.pm6
@@ -312,10 +312,13 @@ method multiplot(:$title, :$font-name, :$font-size, Bool :$enhanced, :@layout, :
 method dispose {
     self.command: "exit";
     $!gnuplot.close-stdin;
-    await $!promise;
+    try sink await $!promise;
 }
 
-method command(Str $command) {
+method command(Str $command, :$stderr = $*ERR) {
+    if $!debug {
+        $stderr.say: $command;
+    }
     try sink await $!gnuplot.say: $command;
 }
 

diff --git a/t/01-basic.t b/t/01-basic.t
@@ -8,4 +8,12 @@ use Chart::Gnuplot;
     }, "Chart::Gnuplot.new should create a new instance."
 }
 
+{
+    my $msg;
+    my $gnu = Chart::Gnuplot.new(:terminal("png"), :filename("sample.svg"), :debug);
+    $gnu.command("set terminal svg", :stderr(class { method print(*@args){ $msg ~= @args.join; }; method flush{}}));
+    sleep .5;
+    ok $msg ~~ "set terminal svg\n", "Chart::Gnuplot.command should print given command to stderr with newline when debug option is enabled.";
+}
+
 done-testing;