# Copyright (c) 2005-2007 bivio Software, Inc. All Rights Reserved. # # Visit http://www.bivio.biz for more info. # # This library is free software; you can redistribute it and/or modify # it under the terms of the GNU Lesser General Public License as # published by the Free Software Foundation; either version 2.1 of the # License, or (at your option) any later version. # # This library is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # Lesser General Public License for more details. # # You should have received a copy of the GNU Lesser General Public # License along with this library; If not, you may get a copy from: # http://www.opensource.org/licenses/lgpl-license.html # # $Id: Page.bunit,v 1.3 2010/05/31 17:22:20 nagler Exp $ Widget({ parse_return => sub { my($case, $actual, $expect) = @_; my($r) = $actual->[0]; $r =~ s{.*?\n}{}s || die; $r =~ s{\n\n}{}s || die; return [$r]; }, }); [ ['head', 'hello', {style => ''}] => qr{head\nhello}is, ['', '', { style => '', want_page_print => [sub {0}], }] => sub { my(undef, $actual) = @_; return $actual->[0] =~ /page_print/ ? 0 : 1; }, [ '', vs_new(Script => 'first_focus'), { want_page_print => 1, style => '', }, ] => qr/first_focus_onload.*page_print_onload.*