these freakin tests suck

diff --git a/t/sugar.t b/t/sugar.t
new file mode 100644 (file)
index 0000000..280f44d
--- /dev/null
+++ b/t/sugar.t
@@ -0,0 +1,22 @@
+use strict;
+use warnings;
+use Data::Dumper::Concise::Sugar;
+
+use Data::Dumper::Concise ();
+
+use Test::More qw(no_plan);
+use Test::Warn;
+
+my @foo;
+warnings_like {
+   @foo = Dwarn 'warn', 'friend';
+} [qr/"warn"/,qr/friend/], "Dwarn warns";
+
+ok eq_array(\@foo, ['warn']), 'Dwarn passes through correctly';
+
+my $bar;
+warning_like {
+   $bar = DwarnS 'robot',2,3;
+} qr{^"robot"$}, "DwarnS warns";
+
+is $bar, 'robot', 'DwarnS passes through correctly';