From ecf1c65d3958515e78c4502cbf0a904ec4d62c54 Mon Sep 17 00:00:00 2001
From: MichaelTempest <MichaelTempest@0b4bb1d4-4e5a-0410-9cc4-b2b747904278>
Date: Sat, 26 Jun 2010 17:38:23 +0000
Subject: [PATCH] Item9041: Show that TCP's link-patching is broken

git-svn-id: http://svn.foswiki.org/trunk@7930 0b4bb1d4-4e5a-0410-9cc4-b2b747904278
---
 .../TWikiCompatibilityPluginSuite.pm          |  2 +-
 .../TWikiLinkTests.pm                         | 38 +++++++++++++++++++
 2 files changed, 39 insertions(+), 1 deletion(-)
 create mode 100644 TWikiCompatibilityPlugin/test/unit/TWikiCompatibilityPlugin/TWikiLinkTests.pm

diff --git a/TWikiCompatibilityPlugin/test/unit/TWikiCompatibilityPlugin/TWikiCompatibilityPluginSuite.pm b/TWikiCompatibilityPlugin/test/unit/TWikiCompatibilityPlugin/TWikiCompatibilityPluginSuite.pm
index f40dc1277e..ae645aa9df 100755
--- a/TWikiCompatibilityPlugin/test/unit/TWikiCompatibilityPlugin/TWikiCompatibilityPluginSuite.pm
+++ b/TWikiCompatibilityPlugin/test/unit/TWikiCompatibilityPlugin/TWikiCompatibilityPluginSuite.pm
@@ -6,7 +6,7 @@ use warnings;
 use Unit::TestSuite;
 our @ISA = 'Unit::TestSuite';
 
-sub include_tests { return 'TWikiFuncTests' }
+sub include_tests { return 'TWikiFuncTests', 'TWikiLinkTests' }
 
 1;
 __END__
diff --git a/TWikiCompatibilityPlugin/test/unit/TWikiCompatibilityPlugin/TWikiLinkTests.pm b/TWikiCompatibilityPlugin/test/unit/TWikiCompatibilityPlugin/TWikiLinkTests.pm
new file mode 100644
index 0000000000..c355f182a4
--- /dev/null
+++ b/TWikiCompatibilityPlugin/test/unit/TWikiCompatibilityPlugin/TWikiLinkTests.pm
@@ -0,0 +1,38 @@
+#
+# Unit tests for handling of links
+#
+
+package TWikiLinkTests;
+use FoswikiFnTestCase;
+our @ISA = qw( FoswikiFnTestCase );
+
+use strict;
+use Foswiki::Func;
+
+sub new {
+    my $self = shift()->SUPER::new( "Link", @_ );
+    return $self;
+}
+
+sub test_renamedMainTopic {
+    my $this = shift;
+    my $goodLink = Foswiki::Func::renderText('Main.SitePreferences');
+    my $oldLink = Foswiki::Func::renderText('Main.TWikiPreferences');
+    $this->assert_str_equals($goodLink, $oldLink);
+}
+
+sub test_renamedSystemTopic {
+    my $this = shift;
+    my $goodLink = Foswiki::Func::renderText('System.BeginnersStartHere');
+    my $oldLink = Foswiki::Func::renderText('TWiki.ATasteOfTWiki');
+    $this->assert_str_equals($goodLink, $oldLink);
+}
+
+sub test_renamedSystemTopicWithLinkText {
+    my $this = shift;
+    my $goodLink = Foswiki::Func::renderText('[[System.BeginnersStartHere][Link Text]]');
+    my $oldLink = Foswiki::Func::renderText('[[TWiki.ATasteOfTWiki][Link Text]]');
+    $this->assert_str_equals($goodLink, $oldLink);
+}
+
+1;