More tests for deparsing warn()+1, etc.

diff --git a/dist/B-Deparse/t/deparse.t b/dist/B-Deparse/t/deparse.t
index d71eeaa..4d90a1b 100644 (file)
--- a/dist/B-Deparse/t/deparse.t
+++ b/dist/B-Deparse/t/deparse.t
@@ -873,6 +873,8 @@ CORE::do({});
 () = (eof) + 1;
 () = (return) + 1;
 () = (return, 1);
+() = warn;
+() = warn() + 1;
 () = setpgrp() + 1;
 ####
 # [perl #63558] open local(*FH)