6 files changed, 102 insertions, 0 deletions
diff --git a/t/driver/A.pm b/t/driver/A.pm
new file mode 100644
index 0000000..7aeb627
--- /dev/null
+++ b/t/driver/A.pm
@@ -0,0 +1,14 @@
+package A;
+
+# This is our driver class
+
+use strict;
+
+use vars qw{$VERSION};
+BEGIN {
+	$VERSION = '0.01';
+}
+
+sub dummy { 1 }
+
+1;
diff --git a/t/driver/B.pm b/t/driver/B.pm
new file mode 100644
index 0000000..eb8ccbf
--- /dev/null
+++ b/t/driver/B.pm
@@ -0,0 +1,17 @@
+# Don't want to collide with the B:: modules
+package My_B;
+
+# This is our good driver class
+
+use strict;
+
+use A ();
+use vars qw{$VERSION @ISA};
+BEGIN {
+	$VERSION = '0.01';
+	@ISA     = 'A';
+}
+
+sub dummy { 1 }
+
+1;
diff --git a/t/driver/D.pm b/t/driver/D.pm
new file mode 100644
index 0000000..1b147a5
--- /dev/null
+++ b/t/driver/D.pm
@@ -0,0 +1,16 @@
+package D;
+
+# This is our broken driver class
+
+use strict;
+
+use A ();
+use vars qw{$VERSION @ISA};
+BEGIN {
+	$VERSION = '0.01';
+	@ISA     = 'A';
+}
+
+sub dummy { 1 }
+
+0;
diff --git a/t/driver/E.pm b/t/driver/E.pm
new file mode 100644
index 0000000..ad7d060
--- /dev/null
+++ b/t/driver/E.pm
@@ -0,0 +1,14 @@
+package E;
+
+# This is a good class, but not a driver
+
+use strict;
+
+use vars qw{$VERSION};
+BEGIN {
+	$VERSION = '0.01';
+}
+
+sub dummy { 1 }
+
+1;
diff --git a/t/driver/F.pm b/t/driver/F.pm
new file mode 100644
index 0000000..e7592d6
--- /dev/null
+++ b/t/driver/F.pm
@@ -0,0 +1,24 @@
+package F;
+
+# This is a driver with a faked ->isa
+
+use strict;
+
+use vars qw{$VERSION};
+BEGIN {
+	$VERSION = '0.01';
+}
+
+sub isa {
+	my $class = shift;
+	my $parent = shift;
+	if ( defined $parent and ! ref $parent and $parent eq 'A' ) {
+		return !!1;
+	} else {
+		return !1;
+	}
+}
+
+sub dummy { 1 }
+
+1;
diff --git a/t/driver/My_B.pm b/t/driver/My_B.pm
new file mode 100644
index 0000000..eb8ccbf
--- /dev/null
+++ b/t/driver/My_B.pm
@@ -0,0 +1,17 @@
+# Don't want to collide with the B:: modules
+package My_B;
+
+# This is our good driver class
+
+use strict;
+
+use A ();
+use vars qw{$VERSION @ISA};
+BEGIN {
+	$VERSION = '0.01';
+	@ISA     = 'A';
+}
+
+sub dummy { 1 }
+
+1;