[poppler] test/test-gen: image.pl, 1.1, 1.2 mask.pl, 1.1, 1.2 text.pl, 1.1, 1.2

[Jeff Muizelaar]

Update of /cvs/poppler/test/test-gen
In directory gabe:/tmp/cvs-serv18687/test-gen

Modified Files:
	image.pl mask.pl text.pl 
Log Message:
2005-05-21  Jeff Muizelaar <jeff at infidigm.net>

	* Makefile:
	* test-gen/image.pl:
	* test-gen/mask.pl:
	* test-gen/text.pl:
	use paths relative to test-gen instead of the project root.


Index: image.pl
===================================================================
RCS file: /cvs/poppler/test/test-gen/image.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- image.pl	21 May 2005 02:51:15 -0000	1.1
+++ image.pl	21 May 2005 16:40:35 -0000	1.2
@@ -4,7 +4,7 @@
 use Text::PDF::Page;        # pulls in Pages
 use Text::PDF::Utils;       # not strictly needed
 use Text::PDF::SFont;
-do "test-gen/image.inc";
+do "image.inc";
 $pdf = Text::PDF::File->new;            # Make up a new document
 $root = Text::PDF::Pages->new($pdf);    # Make a page tree in the document
 $root->proc_set("PDF", "Text");         # Say that all pages have PDF and Text instructions
@@ -13,7 +13,7 @@
 $font = Text::PDF::SFont->new($pdf, 'Helvetica', 'F0');     # Make a new font in the document
 $root->add_font($font);                                     # Tell all pages about the font
 
-my ($w,$h,$bpc,$cs,$img)=parseImage('test-gen/romedalen.ppm');
+my ($w,$h,$bpc,$cs,$img)=parseImage('romedalen.ppm');
 my $key='IMG1';
 $xo=PDFDict();
 $xo->{'Type'}=PDFName('XObject');

Index: mask.pl
===================================================================
RCS file: /cvs/poppler/test/test-gen/mask.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- mask.pl	21 May 2005 02:51:15 -0000	1.1
+++ mask.pl	21 May 2005 16:40:35 -0000	1.2
@@ -5,14 +5,14 @@
 use Text::PDF::Page;        # pulls in Pages
 use Text::PDF::Utils;       # not strictly needed
 use Text::PDF::SFont;
-do "test-gen/image.inc";
+do "image.inc";
 my $pdf = Text::PDF::File->new;            # Make up a new document
 my $root = Text::PDF::Pages->new($pdf);    # Make a page tree in the document
 $root->proc_set("PDF", "Text");         # Say that all pages have PDF and Text instructions
 $root->bbox(0, 0, 595, 840);            # hardwired page size A4 (for this app.) for all pages
 my $page = Text::PDF::Page->new($pdf, $root);      # Make a new page in the tree
 
-my ($w,$h,$bpc,$cs,$img)=parseImage('test-gen/a.pbm');
+my ($w,$h,$bpc,$cs,$img)=parseImage('a.pbm');
 my $key='IMG1';
 my $xo=PDFDict();
 $xo->{'ImageMask'}=PDFBool('true');

Index: text.pl
===================================================================
RCS file: /cvs/poppler/test/test-gen/text.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- text.pl	21 May 2005 02:51:15 -0000	1.1
+++ text.pl	21 May 2005 16:40:35 -0000	1.2
@@ -4,7 +4,7 @@
 use Text::PDF::Page;        # pulls in Pages
 use Text::PDF::Utils;       # not strictly needed
 use Text::PDF::SFont;
-do "test-gen/image.inc";
+do "image.inc";
 $pdf = Text::PDF::File->new;            # Make up a new document
 $root = Text::PDF::Pages->new($pdf);    # Make a page tree in the document
 $root->proc_set("PDF", "Text");         # Say that all pages have PDF and Text instructions
@@ -15,7 +15,7 @@
 
 $page->add("q\n"); #saveState
 $page->add("BT 1 0 0 1 200 600 Tm /F0 48 Tf 5 Tr (Hello World!) Tj ET\n");        # put some content on the page
-my ($w,$h,$bpc,$cs,$img)=parseImage('test-gen/romedalen.ppm');
+my ($w,$h,$bpc,$cs,$img)=parseImage('romedalen.ppm');
 my $key='IMG1';
 $xo=PDFDict();
 $xo->{'Type'}=PDFName('XObject');