summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2007-11-07 11:10:15 +0000
committerNorbert Preining <preining@logic.at>2007-11-07 11:10:15 +0000
commit28e17c4ead509ac9159ef5d11a7b193db8533784 (patch)
treefc4bbd1416fa887aa1be425febbafd4d972c32d0 /Master
parentbdd68d0d1d030fcf30a5aa4f0a68cbfcf522faf9 (diff)
add a test script for the tlpdb add_container function
git-svn-id: svn://tug.org/texlive/trunk@5390 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rwxr-xr-xMaster/tlpkg/tests/tlpdb-install-test.pl39
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: #