From: Vincent Pit <vince@profvince.com>
Date: Mon, 9 Sep 2013 12:18:56 +0000 (+0200)
Subject: Remove profanity
X-Git-Tag: v0.13~12
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLexical-Types.git;a=commitdiff_plain;h=f2d2b8e7016ee7c2116c7240ad9bd74e8d1f8b63

Remove profanity
---

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';