1 files changed, 37 insertions, 0 deletions
diff --git a/lib/Net/t/libnet_t.pl b/lib/Net/t/libnet_t.pl
new file mode 100644
index 0000000000..ed245e6502
--- /dev/null
+++ b/lib/Net/t/libnet_t.pl
@@ -0,0 +1,37 @@
+
+my $number = 0;
+sub ok {
+	my ($condition, $name) = @_;
+
+	my $message = $condition ? "ok " : "not ok ";
+	$message .= ++$number;
+	$message .= " # $name" if defined $name;
+	print $message, "\n";
+	return $condition;
+}
+
+sub is {
+	my ($got, $expected, $name) = @_;
+
+	for ($got, $expected) {
+		$_ = 'undef' unless defined $_;
+	}
+
+	unless (ok($got eq $expected, $name)) {
+		warn "Got: '$got'\nExpected: '$expected'\n" . join(' ', caller) . "\n";
+	}
+}
+
+sub skip {
+	my ($reason, $num) = @_;
+	$reason ||= '';
+	$number ||= 1;
+
+	for (1 .. $num) {
+		$number++;
+		print "ok $number # skip $reason\n";
+	}
+}
+
+1;
+