#!/usr/bin/perl
# Test Streamer::Print
use strict;
use warnings;
use TB2::Streamer::Print;
my $print = TB2::Streamer::Print->new;
$print->write(out => "1..3\n", "ok 1 - write\n");
$print->safe_print( $print->output_fh, "ok 2 - safe_print\n" );
# Make sure it ignores globals
{
local $\ = "not ok";
local $" = "not ok";
local $, = "not ok";
$print->safe_print( $print->output_fh, "ok 3 - safe_print ignores globals\n" );
}