unknown plot type give correct error

PDLPorters · Apr 25, 2024 · 0d7192c · 0d7192c
1 parent 1e2d604
commit 0d7192c
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 1 deletion.
diff --git a/lib/PDL/Graphics/Simple.pm b/lib/PDL/Graphics/Simple.pm
@@ -885,7 +885,7 @@ sub _translate_plot {
 
       my $ptn = $plot_type_abbrevs->{ $co2->{with} };
       unless( defined($ptn) and defined($plot_types->{$ptn}) ) {
-          barf "Unknown plot type $ptn\n";
+          barf "Unknown plot type $co2->{with}\n";
       }
 
       if($co2->{key} and !defined($po->{legend})) {

diff --git a/t/simple.t b/t/simple.t
@@ -18,6 +18,12 @@ sub ask_yn {
     unlike($a, qr/n/i, $label);
 }
 
+# error handling
+eval {
+  PDL::Graphics::Simple::_translate_plot(undef, undef, with=>'NEVER_USED');
+};
+like $@, qr/unknown.*NEVER_USED/i;
+
 ##############################
 # Try the simple engine and convenience interfaces...