1 files changed, 27 insertions, 0 deletions
diff --git a/new-infra/test-tldb.pl b/new-infra/test-tldb.pl
new file mode 100644
index 00000000000..373058a6459
--- /dev/null
+++ b/new-infra/test-tldb.pl
@@ -0,0 +1,27 @@
+#!/usr/bin/perl -w
+
+use strict;
+
+use TLP;
+use TLDB;
+
+my $tldb = new TLDB;
+
+my $tlp = new TLP;
+$tlp->from_file("tlp/baz.tlp");
+$tldb->add_tlp($tlp);
+
+$tlp = new TLP;
+$tlp->from_file("tlp/foo.tlp");
+$tldb->add_tlp($tlp);
+
+open(TMP,">test.tldb");
+$tldb->writeout(\*TMP);
+close(TMP);
+$tldb->writeout;
+
+print "=========================\n";
+
+my $tldbnew = new TLDB;
+$tldb->from_file("test.tldb");
+$tldb->writeout;