view release on metacpan or  search on metacpan

t/Oddmuse.t  view on Meta::CPAN

$page = query_gemini("$base/do/index");
like($page, qr(All Pages), "Index");
like($page, qr(^=> $base/page/Test Test$)m, "Page link");

$page = query_gemini("$base/do/changes");
like($page, qr(Changes), "Changes");
like($page, qr(^=> $base/page/Test Test \(current\)$)m, "Page link to current revision");
like($page, qr(^=> $base/history/Test History$)m, "History link");
like($page, qr(^=> $base/page/Test/1 Test \(1\)$)m, "Page link to revision 1");
like($page, qr(^=> $base/diff/Test/1 Differences$)m, "Diff link");

$page = query_gemini("$base/history/Test");
like($page, qr(^=> $base/page/Test Test \(current\)$)m, "Page link to current revision");
like($page, qr(^=> $base/page/Test/1 Test \(1\)$)m, "Page link to revision 1");
like($page, qr(^=> $base/diff/Test/1 Differences$)m, "Diff link");

$page = query_gemini("$base/diff/Test/1");
like($page, qr(^# Differences for Test$)m, "Diff");
like($page, qr(^Showing the differences between revision 1 and the current revision\.$)m, "Intro");
like($page, qr(^Changed line 1 from:\n> ï½¢Fnordï½£$)m, "From");
like($page, qr(^to:\n> ï½¢Alexï½£$)m, "To");

$page = query_gemini("$base/Travels/page/Test");
like($page, qr(Berta), "Page (namespace)");
like($page, qr(^=> $base/Travels/raw/Test Raw text$)m, "Raw link (namespace)");

t/Oddmuse.t  view on Meta::CPAN

like(query_gemini("$base/Travels/do/search"), qr(^10), "Search");
like(query_gemini("$base/Travels/do/search?alex"), qr(^=> $base/Travels/page/Test Test$)m, "Page link");

$page = query_gemini("$base/do/all/changes");
like($page, qr(^=> $base/page/Test Test)m, "All changes");
like($page, qr(^=> $base/Travels/page/Test \[Travels\] Test)m, "All changes (namespace)");

$page = query_gemini("$base/Travels/history/Test");
like($page, qr(^=> $base/Travels/page/Test Test \(current\)$)m, "Page link to current revision");
like($page, qr(^=> $base/Travels/page/Test/2 Test \(2\)$)m, "Page link to revision 2");
like($page, qr(^=> $base/Travels/diff/Test/2 Differences$)m, "Diff link for revision 2");
like($page, qr(^=> $base/Travels/page/Test/1 Test \(1\)$)m, "Page link to revision 1");
like($page, qr(^=> $base/Travels/diff/Test/1 Differences$)m, "Diff link for revision 1");

$page = query_gemini("$base/Travels/diff/Test/2");
like($page, qr(^# Differences for Test$)m, "Diff");
like($page, qr(^Showing the differences between revision 2 and the current revision\.$)m, "Intro");
like($page, qr(^Changed line 1 from:\n> ï½¢Bertï½£$)m, "From");
like($page, qr(^to:\n> ï½¢Bertaï½£$)m, "To");

$page = query_gemini("$base/Travels/page/Test/1");
like($page, qr(^Check out Bet\.$)m, "Revision 1");
like($page, qr(^=> $base/Travels/page/Bet Bet$)m, "Link");