Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

rename this to avoid possible conflict (hint: see next commit)

  • Loading branch information...
commit 357277be491f567434b81b1fcec5606b57709bb2 1 parent e76823e
Stevan Little authored
Showing with 4 additions and 4 deletions.
  1. +4 −4 t/001-examples/001-point.t
8 t/001-examples/001-point.t
View
@@ -26,7 +26,7 @@ class Point {
($x, $y) = (0, 0);
}
- method dump {
+ method pack {
+{ x => $self->x, y => $self->y }
}
}
@@ -42,7 +42,7 @@ class Point3D (extends => 'Point') {
$z = $new_z;
}
- method dump {
+ method pack {
my $data = $self->mop::next::method;
$data->{z} = $z;
$data;
@@ -69,7 +69,7 @@ class Point3D (extends => 'Point') {
$p->set_y(320);
is $p->y, 320, '... got the right value for y';
- is_deeply $p->dump, { x => 10, y => 320 }, '... got the right value from dump';
+ is_deeply $p->pack, { x => 10, y => 320 }, '... got the right value from pack';
}
## Test the instance
@@ -95,7 +95,7 @@ class Point3D (extends => 'Point') {
$p3d->set_z(30);
is $p3d->z, 30, '... got the right value for z';
- is_deeply $p3d->dump, { x => 10, y => 320, z => 30 }, '... got the right value from dump';
+ is_deeply $p3d->pack, { x => 10, y => 320, z => 30 }, '... got the right value from pack';
}
Please sign in to comment.
Something went wrong with that request. Please try again.