Class-Load-0.23HEADClass-Load-0.23master

1 files changed, 22 insertions, 0 deletions

diff --git a/t/011-without-xs.t b/t/011-without-xs.t
new file mode 100644
index 0000000..e1d1e43
--- /dev/null
+++ b/t/011-without-xs.t
@@ -0,0 +1,22 @@
+use strict;
+use warnings;
+use Test::More 0.88;
+
+use Test::Requires {
+    'Test::Without::Module' => 0,
+};
+
+use Test::Without::Module 'Class::Load::XS';
+
+{
+    my @warnings;
+    local $SIG{__WARN__} = sub { push @warnings, @_ };
+    require Class::Load;
+
+    is_deeply(
+        \@warnings, [],
+        'no warning from Class::Load when Class::Load::XS is not available'
+    );
+}
+
+done_testing();