From 7adfd53f17f66ffe93763e944ed1d3fc52a369dc Mon Sep 17 00:00:00 2001
From: matthewt <matthewt@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7>
Date: Wed, 12 Sep 2007 18:11:34 +0000
Subject: moved shit to trunk

---
 t/ui_widget_listview.show | 43 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)
 create mode 100644 t/ui_widget_listview.show

(limited to 't/ui_widget_listview.show')

diff --git a/t/ui_widget_listview.show b/t/ui_widget_listview.show
new file mode 100644
index 0000000..05e3ab8
--- /dev/null
+++ b/t/ui_widget_listview.show
@@ -0,0 +1,43 @@
+use strict;
+use warnings;
+use Reaction::UI::Widget::ListView;
+use Data::Dump::Streamer qw(Dump);
+
+my ($name, $data);
+
+sub FakeRCTX::render {
+  shift;
+  ($name, $data) = @_;
+}
+
+sub FakeVP::field_names { [ qw(foo bar baz) ] }
+
+sub FakeVP::field_label_map { ({ foo => 'Foo', bar => 'Bar', baz => 'Baz' }); }
+
+my $w = bless({ viewport => 'VIEWPORT' }, 'Reaction::UI::Widget::ListView');
+
+my $rctx = bless({}, 'FakeRCTX');
+
+$w->render_header($rctx, { self => $w, viewport => bless({}, 'FakeVP') });
+
+print "Name: ${name}\n";
+print "Data: ";
+print Dump($data);
+
+my $first = $data->{_}->();
+
+print "First: ";
+print Dump($first);
+
+$first->($rctx);
+
+print "Name: ${name}\n";
+print "Data: ";
+print Dump($data);
+
+my $inner = $data->{_}->();
+
+print "Inner: ";
+print Dump($inner);
+
+print $inner->();
-- 
cgit v1.2.3-54-g00ecf