# Copyright (c) 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: RealmFilePage.bunit,v 1.6 2010/12/16 22:06:08 moeller Exp $ Request('initialize_fully'); req()->set_realm_and_user(qw(demo demo)); my($rf) = model('RealmFile'); my($p) = '/tmp/RealmFilePage.bunit'; $rf->delete({path => $p}); $rf->create_with_content({path => $p}, \(<<'EOF')); href="css/my.css?0" src="/my.jpg" href="#" ignore this EOF [ class() => [ { method => sub { my($case, $object, $is_production) = @_; req()->put(is_production => $is_production); class('Bivio::UI::View')->render(\(<<"EOF"), req()); view_class_map('HTMLWidget'); view_shortcuts('Bivio::UI::HTML::ViewShortcuts'); view_put(vap_wv1 => 'aaa'); view_put(vap_wv2 => 'bbb'); view_main(RealmFilePage({ view_attr_prefix => 'vap_', path => q{$p}, default_path => q{$p}, realm_id => @{[req('auth_id')]}, xhtml => 1, })); EOF }, } => [ 1 => qr{ \n \n .*text/css.*\n href="/tmp/css/my.css\?0"\n src="/my.jpg"\n href="\#"\n \n \n aaabbb\n }sx, ], ], ];