X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLexical-Types.git;a=blobdiff_plain;f=t%2F14-ro.t;h=19b8192675c5f48c238494a884414d1f6a208ffc;hp=1c4a7e07814e8d42b6972b98e24622918efa47be;hb=f2d2b8e7016ee7c2116c7240ad9bd74e8d1f8b63;hpb=ac8fadd02eaa275485af784bc3a70fd2c666906c

diff --git a/t/14-ro.t b/t/14-ro.t
index 1c4a7e0..19b8192 100644
--- a/t/14-ro.t
+++ b/t/14-ro.t
@@ -8,12 +8,12 @@ use Test::More tests => 4;
 sub Str::TYPEDSCALAR { }
 
 sub Str1::TYPEDSCALAR {
- $_[0] = 'dongs';
+ $_[0] = 'derp';
  ();
 }
 
 sub Str2::TYPEDSCALAR {
- $_[2] = 'hlagh';
+ $_[2] = 'herp';
  ();
 }
 
@@ -31,7 +31,7 @@ sub maybe_warn {
  maybe_warn();
  local $@;
  eval q!
-  use Lexical::Types as => sub { $_[0] = 'dongs'; () };
+  use Lexical::Types as => sub { $_[0] = 'derp'; () };
   my Str $x;
  !;
  like $@, ro_re('', 2), '$_[0] in initializer is read only';
@@ -42,7 +42,7 @@ SKIP: {
  maybe_warn();
  local $@;
  eval q!
-  use Lexical::Types as => sub { $_[1] = 'hlagh'; () };
+  use Lexical::Types as => sub { $_[1] = 'herp'; () };
   my Str $x;
  !;
  like $@, ro_re('', 2), '$_[1] in initializer is read only';