From 9571a18107e3e132c7c211b762e4dc366ecf56bf Mon Sep 17 00:00:00 2001 From: tetragon Date: Sun, 20 May 2007 00:08:30 +0000 Subject: Updating tests that involve headers git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1219 4979c152-3d1c-0410-bac9-87ea11338e46 --- t/10-form.t | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) (limited to 't/10-form.t') diff --git a/t/10-form.t b/t/10-form.t index 2a5765e5..8940e2a6 100644 --- a/t/10-form.t +++ b/t/10-form.t @@ -197,7 +197,7 @@ ok(!$form->{pre}, 'info: CGI, removed $self->{pre}'); delete $form->{header}; @r = trap{$form->info('hello world')}; -like($trap->stdout, qr|Content-Type: text/html; charset=utf-8\n+\n\n\n\s+\n\s+\n\s+\n\s+[\n\s]+[\n\s]+[\n\s]+hello world|, +like($trap->stdout, qr|Content-Type: text/html; charset=utf-8\n+\n\n\n\s+\n\s+\n\s+\n\s+[\n\s]+[\n\s]+[\n\s]+[\n\s]+hello world|, 'info: CGI, header content'); delete $ENV{GATEWAY_INTERFACE}; @@ -233,7 +233,7 @@ delete $form->{header}; @r = trap{$form->error('hello world')}; is($trap->exit, 0, 'error: CGI, normal termination'); -like($trap->stdout, qr|Content-Type: text/html; charset=utf-8\n+\n\n\n\s+\n\s+\n\s+\n\s+[\n\s]+[\n\s]+[\n\s]+

Error!

hello world|, +like($trap->stdout, qr|Content-Type: text/html; charset=utf-8\n+\n\n\n\s+\n\s+\n\s+\n\s+[\n\s]+[\n\s]+[\n\s]+[\n\s]+

Error!

hello world|, 'error: CGI, header content'); delete $ENV{GATEWAY_INTERFACE}; @@ -281,31 +281,31 @@ delete $form->{titlebar}; delete $form->{title}; delete $form->{pre}; @r = trap{$form->header}; -like($trap->stdout, qr|Content-Type: text/html; charset=utf-8\n\n+\n\n\n\s+\n\s+\n\s+\n\s+[\n\s]+[\n\s]+[\n\s]+|, +like($trap->stdout, qr|Content-Type: text/html; charset=utf-8\n\n+\n\n\n\s+\n\s+\n\s+\n\s+[\n\s]+[\n\s]+[\n\s]+[\n\s]+|, 'header: unset'); delete $form->{header}; @r = trap{$form->header(1, 'hello world')}; -like($trap->stdout, qr|Content-Type: text/html; charset=utf-8\n\n+\n\n\n\s+\n\s+\n\s+\n\s+[\n\s]+[\n\s]+hello world[\n\s]+[\n\s]+|, +like($trap->stdout, qr|Content-Type: text/html; charset=utf-8\n\n+\n\n\n\s+\n\s+\n\s+\n\s+[\n\s]+[\n\s]+[\n\s]+hello world[\n\s]+[\n\s]+|, 'header: headeradd'); delete $form->{header}; $form->{pre} = 'hello world'; @r = trap{$form->header}; -like($trap->stdout, qr|Content-Type: text/html; charset=utf-8\n\n+\n\n\n\s+\n\s+\n\s+\n\s+[\n\s]+[\n\s]+[\n\s]+hello world \n|, +like($trap->stdout, qr|Content-Type: text/html; charset=utf-8\n\n+\n\n\n\s+\n\s+\n\s+\n\s+[\n\s]+[\n\s]+[\n\s]+[\n\s]+hello world \n|, 'header: pre => \'hello world\''); delete $form->{pre}; delete $form->{header}; $form->{titlebar} = 'hello'; @r = trap{$form->header}; -like($trap->stdout, qr|Content-Type: text/html; charset=utf-8\n\n+\n\n\n\s+hello\n\s+\n\s+\n\s+[\n\s]+[\n\s]+[\n\s]+|, +like($trap->stdout, qr|Content-Type: text/html; charset=utf-8\n\n+\n\n\n\s+hello\n\s+\n\s+\n\s+[\n\s]+[\n\s]+[\n\s]+[\n\s]+|, 'header: titlebar => \'hello\''); delete $form->{header}; $form->{title} = 'world'; @r = trap{$form->header}; -like($trap->stdout, qr|Content-Type: text/html; charset=utf-8\n\n+\n\n\n\s+world - hello\n\s+\n\s+\n\s+[\n\s]+[\n\s]+[\n\s]+|, +like($trap->stdout, qr|Content-Type: text/html; charset=utf-8\n\n+\n\n\n\s+world - hello\n\s+\n\s+\n\s+[\n\s]+[\n\s]+[\n\s]+[\n\s]+|, 'header: titlebar => \'hello\', title => \'world\''); delete $form->{title}; delete $form->{titlebar}; @@ -320,13 +320,13 @@ delete $form->{charset}; delete $form->{header}; $form->{stylesheet} = "not a real file.$$"; @r = trap{$form->header}; -like($trap->stdout, qr|Content-Type: text/html; charset=utf-8\n\n+\n\n\n\s+\n\s+\n\s+\n\s+[\n\s]+[\n\s]+[\n\s]+|, +like($trap->stdout, qr|Content-Type: text/html; charset=utf-8\n\n+\n\n\n\s+\n\s+\n\s+\n\s+[\n\s]+[\n\s]+[\n\s]+[\n\s]+|, "header: stylesheet => 'not a real file.$$'"); delete $form->{header}; $form->{stylesheet} = 'ledgersmb.css'; @r = trap{$form->header}; -like($trap->stdout, qr|Content-Type: text/html; charset=utf-8\n\n+\n\n\n\s+\n\s+\n\s+\n\s+[\n\s]+[\n\s]+[\n\s]+[\n\s]+|, +like($trap->stdout, qr|Content-Type: text/html; charset=utf-8\n\n+\n\n\n\s+\n\s+\n\s+\n\s+[\n\s]+[\n\s]+[\n\s]+[\n\s]+[\n\s]+|, 'header: stylesheet => \'ledgersmb.css\''); delete $ENV{GATEWAY_INTERFACE}; -- cgit v1.2.3