Debug-Client

 view release on metacpan or  search on metacpan

t/40-test_1415-old.t  view on Meta::CPAN

# diag('buffer show watches '.$debugger->get_buffer );
#p $debugger->__send_np('L w');
#p $debugger->__send('L w');
#p $debugger->get_buffer;

like( $debugger->__send('L w'), qr/fonts/, 'set watchpoints for @fonts' );

#this is 'unlike' as it's a side affect of using a wantarry
unlike( my @list = $debugger->run, qr/Watchpoint/, 'Watchpoint value changed' );
like( $debugger->get_buffer, qr/fonts changed/, 'check buffer for fonts changed' );
unlike( $debugger->module, qr/TERMINATED/, 'module still alive' );

#tell D::C to get cursor position info_line
$debugger->get_lineinfo;
like( $debugger->get_filename, qr/test_1415/, 'check where we are filename' );
is( $debugger->get_row, 19, 'check where we are row 19' );
like( $debugger->get_stack_trace(), qr/ANON/, 'O look, we are in an ANON sub' );

#ToDo test the response, 5.17.6 and 5.16.2 below
#p $debugger->get_y_zero;
# @fonts = (

t/40-test_1415-old.t  view on Meta::CPAN

# )

#ToDo need a test for the value of @fonts
# like( $debugger->get_value('@fonts'), qr/fred/, 'view contents of @fonts');
# $debugger->get_value("@fonts");
# diag( $debugger->get_buffer );
# cmp_deeply( \@out, [ 'main::', 't/eg/02-sub.pl', 7, 'my $y = 22;' ], 'view contents of @fonts' );

like( $debugger->run, qr/Watchpoint/, 'stoped for watchpoint' );
like( $debugger->get_buffer, qr/fonts changed/, 'check buffer for fonts changed' );
unlike( $debugger->module, qr/TERMINATED/, 'module still alive' );

#tell D::C to get cursor position info_line
$debugger->get_lineinfo;
like( $debugger->get_filename, qr/test_1415/, 'check where we are filename' );
is( $debugger->get_row, 27, 'check where we are row 27' );

#ToDo test the response, 5.17.6 and 5.16.2 below
#p $debugger->get_y_zero;
# $hw = CODE(0x9570a08)
   # -> &main::__ANON__[t/eg/test_1415.pl:21] in t/eg/test_1415.pl:13-21

t/40-test_1415-old.t  view on Meta::CPAN

#Body
$debugger->__send( 'w' . '@fonts' );

# diag( $debugger->__send('L w') );
like( $debugger->__send('L w'), qr/fonts/, 'set watchpoints for @fonts' );

#this is 'unlike' as it's a side affect of using a wantarry
unlike( my @list = $debugger->run, qr/Watchpoint/, 'Watchpoint value changed' );

like( $debugger->get_buffer, qr/fonts changed/, 'check buffer' );
unlike( $debugger->module, qr/TERMINATED/, 'module still alive' );

$debugger->get_lineinfo;
like( $debugger->get_filename, qr/test_1415/, 'check where we are filename' );
is( $debugger->get_row, 19, 'check where we are row' );
like( $debugger->get_stack_trace(), qr/ANON/, 'O look, we are in an ANON sub' );

#ToDo need a test for the value of @fonts
# like( $debugger->get_value('@fonts'), qr/fred/, 'view contents of @fonts');
# $debugger->get_value("@fonts");
# diag( $debugger->get_buffer );

t/lib/Test_1415.pm  view on Meta::CPAN

sub t1415 : Test(12) {
	my $self = shift;

	$self->{debugger}->__send( 'w ' . '@fonts' );

	like( $self->{debugger}->__send('L w'), qr/fonts/, 'set watchpoints for @fonts' );

	#this is 'unlike' as it's a side affect of using a wantarry
	unlike( my @list = $self->{debugger}->run, qr/Watchpoint/, 'Watchpoint value changed' );
	like( $self->{debugger}->get_buffer, qr/fonts changed/, 'check buffer' );
	unlike( $self->{debugger}->module, qr/TERMINATED/, 'module still alive' );

	#tell D::C to get cursor position info_line
	$self->{debugger}->get_lineinfo;
	like( $self->{debugger}->get_filename, qr/test_1415/, 'check where we are filename' );
	is( $self->{debugger}->get_row, 19, 'check where we are row 19' );
	like( $self->{debugger}->get_stack_trace(), qr/ANON/, 'O look, we are in an ANON sub' );

	#ToDo need a test for the value of @fonts
	# like( $self->{debugger}->get_value('@fonts'), qr/fred/, 'view contents of @fonts');
	# $self->{debugger}->get_value("@fonts");
	# diag( $self->{debugger}->get_buffer );
	# cmp_deeply( \@out, [ 'main::', 't/eg/02-sub.pl', 7, 'my $y = 22;' ], 'view contents of @fonts' );


	like( $self->{debugger}->run, qr/Watchpoint/, 'stoped for watchpoint' );

	# like( $debugger->run, qr/Watchpoint/, 'stoped for watchpoint' );
	like( $self->{debugger}->get_buffer, qr/fonts changed/, 'check buffer for fonts changed' );
	unlike( $self->{debugger}->module, qr/TERMINATED/, 'module still alive' );

	#tell D::C to get cursor position info_line
	$self->{debugger}->get_lineinfo;
	like( $self->{debugger}->get_filename, qr/test_1415/, 'check where we are filename' );
	is( $self->{debugger}->get_row, 27, 'check where we are row 27' );

}

# teardown methods are run after every test method.
sub teardown : Test(teardown) {