use strict; use OpenGuides; use OpenGuides::Template; use OpenGuides::Test; use OpenGuides::CGI; use Test::More tests => 3; my $config = OpenGuides::Test->make_basic_config; $config->site_name( "Test Site" ); $config->script_url( "/" ); my $guide = OpenGuides->new( config => $config ); my $wiki = $guide->wiki; my $output = OpenGuides::Template->output( wiki => $wiki, config => $config, template => "node.tt", ); unlike( $output, qr/action=delete/, "doesn't offer page deletion link by default" ); $config->enable_page_deletion( "y" ); # set is_admin to 1 my $cookie = OpenGuides::CGI->make_prefs_cookie( config => $config, username => "bob", include_geocache_link => 1, preview_above_edit_box => 1, omit_help_links => 1, show_minor_edits_in_rc => 1, default_edit_type => "tidying", cookie_expires => "never", track_recent_changes_views => 1, is_admin => 1, ); $ENV{HTTP_COOKIE} = $cookie; $output = OpenGuides::Template->output( wiki => $wiki, config => $config, template => "node.tt", ); like( $output, qr/action=delete/, "...but does when enable_page_deletion is set to 'y' and is_admin is 1" ); $config->enable_page_deletion( 1 ); $output = OpenGuides::Template->output( wiki => $wiki, config => $config, template => "node.tt", ); like( $output, qr/action=delete/, "...and when enable_page_deletion is set to '1' and is_admin is 1" );