#!/usr/bin/perl -w
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.pl'

#
# $Id: test.pl 62 2005-03-20 16:47:05Z cfuhrman $
#

#########################

# change 'tests => 1' to 'tests => last_test_to_print';

use Test;
BEGIN { plan tests => 1 };
use lib "lib";
use Net::Printer;
ok(1); # If we made it this far, we're ok.

#########################

# Insert your test code below, the Test module is use()ed here so read
# its man page ( perldoc Test ) for help writing this test script.

main : {

    $printer = Net::Printer->new( "lineconvert" => "Yes",
                                  "server"      => "localhost",
                                  "printer"     => "lp",
                                  "rfc1179"     => "No",
                                  "debug"       => "No");

    ok( defined ($printer) );

    ok (defined $printer->printfile("./testprint.txt") );

    @status = $printer->queuestatus();

    foreach $line (@status) {
        $line =~ s/\n//;
        print "$line\n";
    }

    ok (defined @status);

    # Uncomment this if you want to test printstring
    # ok (defined $printer->printstring("This is a test of printstring function\n"));

    print "Please check your default printer for printout.\n";

} # main