Skeleton testapp for testing the args thrown to the run method by scripts

diff --git a/t/lib/TestAppToTestScripts.pm b/t/lib/TestAppToTestScripts.pm
new file mode 100644 (file)
index 0000000..8102203
--- /dev/null
+++ b/t/lib/TestAppToTestScripts.pm
@@ -0,0 +1,14 @@
+package TestAppToTestScripts;
+use strict;
+use warnings;
+
+our %RUN_ARGS;
+
+sub run {
+    my ($class, %opts) = @_;
+    %RUN_ARGS = %opts;
+    1; # Does this work?
+}
+
+1;
+