1 files changed, 47 insertions, 0 deletions
diff --git a/t/02order.t b/t/02order.t
new file mode 100644
index 0000000..7d1e59d
--- /dev/null
+++ b/t/02order.t
@@ -0,0 +1,47 @@
+
+use Error qw(:try);
+
+@Error::Fatal::ISA = qw(Error);
+
+print "1..6\n";
+
+$num = try {
+    try {
+	try {
+	    throw Error::Simple("ok 1\n");
+	}
+	catch Error::Simple with {
+	    my $err = shift;
+	    print $err;
+
+	    throw Error::Fatal(-value => 4);
+
+	    print "not ok 3\n";
+	}
+	catch Error::Fatal with {
+	    exit(1);
+	}
+	finally {
+	    print "ok 2\n";
+	};
+    } finally {
+	print "ok 3\n";
+    };
+}
+catch Error::Fatal with {
+    my $err = shift;
+    my $more = shift;
+    $$more = 1;
+    print "ok ",0+$err,"\n";
+}
+catch Error::Fatal with {
+    my $err = shift;
+    print "ok ",1+$err,"\n";
+    return 6;
+}
+catch Error::Fatal with {
+    my $err = shift;
+    print "not ok ",2+$err,"\n";
+};
+
+print "ok ",$num,"\n";