summaryrefslogtreecommitdiff
path: root/new-infra/test-tlsrc.pl
blob: 7a6017f55cb2cae2510ef8f29b387138f944a36a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#!/usr/bin/env perl -w

use strict;

use TLSRC;

my $tlsrc = new TLSRC;
$tlsrc->from_file("tlsrc/bar.tlsrc");
$tlsrc->writeout();

my $tl = TLSRC->new( 'name' => "foobar",
			'shortdesc' => "The foobar packages",
			'catalogue' => "foobarcatalogue",
			'depends' => [ 1, 2, 3 ] );
$tl->writeout(\*STDERR);