← Back to branch summary

~ubuntu-branches/debian/squeeze/libhtml-format-perl/squeeze

« back to all changes in this revision

Viewing changes to t/rtf.t

  • Committer: Bazaar Package Importer
  • Author(s): Jay Bonci
  • Date: 2004-10-06 03:13:53 UTC
  • mfrom: (1.2.1 upstream) (2.1.1 warty)
  • Revision ID: james.westby@ubuntu.com-20041006031353-4e7og9lfh0oktlo7
Tags: 2.04-1
http://bugs.debian.org/274130
http://bugs.debian.org/195093
http://bugs.debian.org/190459
http://bugs.debian.org/198527
http://bugs.debian.org/157594
* New Maintainer (Closes: #274130)
* New Upstream Version
* Close outstanding NMUs (Closes: #195093, #190459, #198527, #157594)
* Changed section from interpreters to perl
* Added versioned build-dep on debhelper 4
* Adds debian/compat file per debhelper best practices
* Adds build-dep on perl, per policy
* Updated copyright file
* Fixes URL in copyright file
* Bumped standards-version to 3.6.1 (no other changes)
* Updated to my standard rules template
* Added Build-Deps on Deps so test suite can run

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/rtf.t
 
1
 
 
2
use Test;
 
3
BEGIN { plan 'tests' => 4 }
 
4
 
 
5
use strict;
 
6
ok 1;
 
7
 
 
8
use HTML::FormatRTF;
 
9
 
 
10
open(RTF, ">test.rtf") || die "Can't create test.rtf";
 
11
binmode(RTF);
 
12
print RTF HTML::FormatRTF->format_file(
 
13
  "test.html",
 
14
    "leftmargin" => 0,
 
15
    "rightmargin" => 50,
 
16
);
 
17
close RTF;
 
18
sleep 0;
 
19
ok(-s "test.rtf");
 
20
print "# Resulting file is ", -s "test.rtf", " bytes long.\n";
 
21
 
 
22
ok(  HTML::FormatRTF->format_string('puppies'), '/puppies/'  );
 
23
 
 
24
print "# HTML::Formatter version $HTML::Formatter::VERSION\n"
 
25
 if defined $HTML::Formatter::VERSION;
 
26
print "# HTML::Element version $HTML::Element::VERSION\n"
 
27
 if defined $HTML::Element::VERSION;
 
28
print "# HTML::TreeBuilder version $HTML::TreeBuilder::VERSION\n"
 
29
 if defined $HTML::TreeBuilder::VERSION;
 
30
print "# HTML::Parser version $HTML::Parser::VERSION\n"
 
31
 if defined $HTML::Parser::VERSION;
 
32
 
 
33
 
 
34
ok 1;
 
35
 
 
36