[urisagit/Perl-Docs.git] / t / stringify.t

#!perl -T

use strict;

use Test::More;
use File::Slurp;
use IO::Handle ;
use UNIVERSAL ;

plan tests => 3 ;

my $path = "data.txt";
my $data = "random junk\n";

# create an object with an overloaded path

my $obj = FileObject->new( $path ) ;

isa_ok( $obj, 'FileObject' ) ;
is( "$obj", $path, "object stringifies to path" );

write_file( $obj, $data ) ;

my $read_text = read_file( $obj ) ;
is( $data, $read_text, 'read_file of stringified object' ) ;

unlink $path ;

exit ;

# this code creates the object which has a stringified path

package FileObject;

use overload
	q[""]	=> \&stringify,
	fallback => 1 ;

sub new {
	return bless { path => $_[1] }, $_[0]
}

sub stringify {
	return $_[0]->{path}
}
Commit	Line	Data
d54c66dd	1	#!perl -T
	2
	3	use strict;
	4
	5	use Test::More;
	6	use File::Slurp;
	7	use IO::Handle ;
	8	use UNIVERSAL ;
	9
	10	plan tests => 3 ;
	11
	12	my $path = "data.txt";
	13	my $data = "random junk\n";
	14
	15	# create an object with an overloaded path
	16
	17	my $obj = FileObject->new( $path ) ;
	18
	19	isa_ok( $obj, 'FileObject' ) ;
	20	is( "$obj", $path, "object stringifies to path" );
	21
	22	write_file( $obj, $data ) ;
	23
	24	my $read_text = read_file( $obj ) ;
	25	is( $data, $read_text, 'read_file of stringified object' ) ;
	26
	27	unlink $path ;
	28
	29	exit ;
	30
	31	# this code creates the object which has a stringified path
	32
	33	package FileObject;
	34
	35	use overload
	36	q[""] => \&stringify,
	37	fallback => 1 ;
	38
	39	sub new {
	40	return bless { path => $_[1] }, $_[0]
	41	}
	42
	43	sub stringify {
	44	return $_[0]->{path}
	45	}