summaryrefslogtreecommitdiff
path: root/Master/tlpkg/etc/tlpdb-install-test.pl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/etc/tlpdb-install-test.pl')
-rwxr-xr-xMaster/tlpkg/etc/tlpdb-install-test.pl39
1 files changed, 39 insertions, 0 deletions
diff --git a/Master/tlpkg/etc/tlpdb-install-test.pl b/Master/tlpkg/etc/tlpdb-install-test.pl
new file mode 100755
index 00000000000..6a9a27fe1f2
--- /dev/null
+++ b/Master/tlpkg/etc/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: #