diff --git a/README.md b/README.md index 3014e6b..189d8aa 100644 --- a/README.md +++ b/README.md @@ -61,7 +61,7 @@ tests locally: ## TODOs -1. Probably gotta add a link to the 'raw' txt view somewhere +1. CAPTCHA 1. "All new posts flagged" mode (require approval for new posts) 1. Tests for mod-only user? diff --git a/t/remark.t b/t/remark.t index 5091253..a9a1acc 100644 --- a/t/remark.t +++ b/t/remark.t @@ -17,7 +17,8 @@ my %invalid_remark = ( subtest 'View single remark', sub { $t->get_ok('/remark/single/1')->status_is(200) ->text_like(h2 => qr/Remark #1/) - ->element_exists('a[href$="/remark/post/1/1"]'); + ->element_exists('a[href$="/remark/post/1/1"]') + ->element_exists('h2 sup a[href$=".txt"]'); $t->get_ok('/remark/single/65536')->status_is(404) ->text_like(p => qr/Remark not found/); diff --git a/t/thread.t b/t/thread.t index 7d71c6d..3e2924f 100644 --- a/t/thread.t +++ b/t/thread.t @@ -35,7 +35,8 @@ subtest 'List threads by page', sub { subtest 'View single thread', sub { $t->get_ok('/thread/single/1')->status_is(200) - ->text_like(h2 => qr/Thread #1/); + ->text_like(h2 => qr/Thread #1/) + ->element_exists('h2 sup a[href$=".txt"]'); $t->get_ok('/thread/single/65536')->status_is(404) ->text_like(p => qr/Thread not found/); diff --git a/templates/remark/by_id.html.ep b/templates/remark/by_id.html.ep index bb8327b..ffb671f 100644 --- a/templates/remark/by_id.html.ep +++ b/templates/remark/by_id.html.ep @@ -1,6 +1,8 @@ % layout 'default'; % title my $remark_id = $remark->{'id'} ? "Remark #$remark_id" : '?'; -

<%= title %>

+

+ <%= title %> <%= link_to txt => url_for . '.txt' %> +

<% if (keys %{$remark}) { =%> <% content_for open_graph => begin %> diff --git a/templates/thread/by_id.html.ep b/templates/thread/by_id.html.ep index 1b7ec83..4040bb6 100644 --- a/templates/thread/by_id.html.ep +++ b/templates/thread/by_id.html.ep @@ -1,6 +1,8 @@ % layout 'default'; % title my $thread_id = $thread->{'id'} ? "Thread #$thread_id" : '?'; -

<%= title %>

+

+ <%= title %> <%= link_to txt => url_for . '.txt' %> +

<% if (keys %{$thread}) { =%> <% content_for open_graph => begin %>