add a test script for the tlpdb add_container function

git-svn-id: svn://tug.org/texlive/trunk@5390 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 39 insertions, 0 deletions

diff --git a/Master/tlpkg/tests/tlpdb-install-test.pl b/Master/tlpkg/tests/tlpdb-install-test.pl
new file mode 100755
index 00000000000..6a9a27fe1f2
--- /dev/null
+++ b/Master/tlpkg/tests/tlpdb-install-test.pl
@@ -0,0 +1,39 @@
+#!/usr/bin/env perl
+# Copyright 2007 Norbert Preining
+# This file is licensed under the GNU General Public License version 2
+# or any later version.
+# 
+# Create list files from tlpdb.
+
+BEGIN {
+  $^W = 1;
+  ($mydir = $0) =~ s,/[^/]*$,,;
+  unshift (@INC, "$mydir/..");
+}
+
+use strict;
+
+use TeXLive::TLPOBJ;
+use TeXLive::TLPDB;
+use Getopt::Long;
+use Pod::Usage;
+use File::Path;
+
+
+my $tlpdb = new TeXLive::TLPDB;
+$tlpdb->location("/tmp/texlive-test/texlive.tlpdb");
+
+my @archs = qw/win32 i386-linux/;
+
+$tlpdb->add_tlpcontainer("a0poster", "./zip", \@archs);
+$tlpdb->add_tlpcontainer("automata", "./zip", \@archs);
+$tlpdb->add_tlpcontainer("bin-afm2pl", "./zip", \@archs);
+
+$tlpdb->save;
+
+### Local Variables:
+### perl-indent-level: 2
+### tab-width: 2
+### indent-tabs-mode: nil
+### End:
+# vim:set tabstop=2: #