Test that Opcode loads without warnings.

This will fail if there are untagged ops.

1 files changed, 13 insertions, 3 deletions

diff --git a/ext/Opcode/t/Opcode.t b/ext/Opcode/t/Opcode.t
index a648373ebc..1c0b427f9d 100644
--- a/ext/Opcode/t/Opcode.t
+++ b/ext/Opcode/t/Opcode.t
@@ -13,12 +13,22 @@ BEGIN {
 use strict;
 use Test::More;
 
-BEGIN {
-    use_ok('Opcode', qw(
+{
+    my @warnings;
+
+    BEGIN {
+	local $SIG{__WARN__} = sub {
+	    push @warnings, "@_";
+	};
+
+	use_ok('Opcode', qw(
 	opcodes opdesc opmask verify_opset
 	opset opset_to_ops opset_to_hex invert_opset
 	opmask_add full_opset empty_opset define_optag
-		       ));
+			   ));
+    }
+
+    is_deeply(\@warnings, [], "No warnings loading Opcode");
 }
 
 # --- opset_to_ops and opset