re-work installation to use a bse.cfg style file

[bse.git] / t / 070-user / 010-edit.t

#!perl -w
use strict;
use Test::More tests => 22;
use BSE::Test qw(base_url make_ua check_form post_ok
                 check_content follow_ok);
use URI::QueryParam;
#use WWW::Mechanize;
++$|;
my $baseurl = base_url;
my $ua = make_ua;

ok($ua->get("$baseurl/cgi-bin/admin/add.pl?parentid=-1"), "edit page");
  check_content($ua->{content}, 'edit page',
  	      qr!No\s+parent\s+-\s+this\s+is\s+a\s+section
  	      .*
  	      common/default.tmpl
  	      .*
  	      Add\s+New\s+Page\s+Lev1
	      !xs);
check_form($ua->{content},
	   "edit form",
	   parentid=>[ -1, 'select' ],
	   id => [ '', 'hidden' ],
	   template=> [ 'common/default.tmpl', 'select' ],
	   body => [ '', 'textarea' ],
	   listed => [ 1, 'select' ],
	  );
$ua->field(title=>'Test Article');
$ua->field(body=>'This is a test body');
ok($ua->click('save'), 'submit modified edit form');
# should redirect to admin mode page
check_content($ua->{content}, "admin mode", 
  	   qr!
  	   <title>.*Test\ Article.*</title>
  	   .*
  	   This\ is\ a\ test\ body
  	   !xsm);
my $uri = $ua->uri;
my $id = $uri->query_param("id");
# manage sections
ok($ua->get("$baseurl/cgi-bin/admin/add.pl?id=-1"), "sections page");
follow_ok($ua, "clean up",
	  {
	   text => "Delete",
	   url_regex => qr/id=$id/
	  }, qr/Article deleted/);