#!/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;