# 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: Tag.bunit,v 1.4 2008/11/07 21:59:35 nagler Exp $
Widget({view_class_map => 'XMLWidget'});
model('NumberedList')->load_page({count => 2});
req()->set_user('demo');
[
    [rss =>
        vs_new(Tag => channel => vs_new(Join => [
	     vs_new(Tag => title => [sub {undef}]),
	     vs_new(Tag => description => 'hd'),
	     vs_new(Tag => language => 'en-us'),
	     vs_new(WithModel => NumberedList => vs_new(qw(Tag item),
		     vs_new(Join => [
			 vs_new(Tag => description => 'd'),
			 vs_new(TagField => 'pubdate', 'index'),
			 vs_new(Tag => title => 't'),
		     ])),
	     ),
	])),
	{
	    VERSION => '2.0',
	},
    ] => <<'EOF',
<rss version="2.0"><channel><title/>
<description>hd</description>
<language>en-us</language>
<item><description>d</description>
<pubdate>0</pubdate>
<title>t</title>
</item>
<item><description>d</description>
<pubdate>1</pubdate>
<title>t</title>
</item>
</channel>
</rss>
EOF
    [person => vs_new(With =>
	['auth_user'], vs_new(Join => [
	    vs_new(TagField => 'name'),
	    vs_new(TagField => 'display_name'),
	]),
    )] => <<'EOF',
<person><name>demo</name>
<display_name>Demo User</display_name>
</person>
EOF
];