From 311dd083d47f66fb455316ddd0e9a85963a0733d Mon Sep 17 00:00:00 2001
From: zby <zby@dorotka-pc.(none)>
Date: Sat, 20 Mar 2010 14:56:43 +0100
Subject: [PATCH] A test case from Amiri

---
 t/lib/DBSchema.pm                    |   7 +++++++
 t/lib/DBSchema/Result/Personality.pm |  15 +++++++++++++++
 t/lib/RunTests.pm                    |  10 +++++++++-
 t/var/dvdzbr.db                      | Bin 37888 -> 38912 bytes
 4 files changed, 31 insertions(+), 1 deletion(-)
 create mode 100644 t/lib/DBSchema/Result/Personality.pm

diff --git a/t/lib/DBSchema.pm b/t/lib/DBSchema.pm
index 9b1dca6..3d01f23 100644
--- a/t/lib/DBSchema.pm
+++ b/t/lib/DBSchema.pm
@@ -25,6 +25,13 @@ sub get_test_schema {
     my $deploy_attrs;
     $deploy_attrs->{add_drop_table} = 1 if tables_exist( $dsn, $user, $pass );
     $schema->deploy( $deploy_attrs );
+    $schema->populate('Personality', [
+        [ qw/user_id / ],
+        [ '1'],
+        [ '2' ],
+        [ '3'],
+        ]
+    );
     $schema->populate('User', [
         [ qw/username name password / ],
         [ 'jgda', 'Jonas Alves', ''],
diff --git a/t/lib/DBSchema/Result/Personality.pm b/t/lib/DBSchema/Result/Personality.pm
new file mode 100644
index 0000000..3284fa1
--- /dev/null
+++ b/t/lib/DBSchema/Result/Personality.pm
@@ -0,0 +1,15 @@
+package DBSchema::Result::Personality;
+
+use strict;
+use warnings;
+
+use base 'DBIx::Class';
+
+__PACKAGE__->load_components( "PK::Auto", "Core" );
+__PACKAGE__->table("personality");
+__PACKAGE__->add_columns( "user_id" => { data_type => 'integer' }, );
+__PACKAGE__->set_primary_key("user_id");
+__PACKAGE__->has_one( 'user', 'DBSchema::Result::User', {'user_id' => 'foreign.id'}, );
+
+1;
+
diff --git a/t/lib/RunTests.pm b/t/lib/RunTests.pm
index 53d3c6b..88ec1c9 100644
--- a/t/lib/RunTests.pm
+++ b/t/lib/RunTests.pm
@@ -9,7 +9,7 @@ use DBIx::Class::ResultSet::RecursiveUpdate;
 sub run_tests{
     my $schema = shift;
 
-    plan tests => 40;
+    plan tests => 41;
     
     my $dvd_rs = $schema->resultset( 'Dvd' );
     my $user_rs = $schema->resultset( 'User' );
@@ -213,7 +213,15 @@ sub run_tests{
     is( scalar @rel_tags, 2, 'tags related' );
     ok( $rel_tags[0]->file eq 'file0' || $rel_tags[0]->file eq 'file1', 'tags related' );
 
+    my $new_person = {
+        name  => 'Amiri Barksdale',
+        username => 'amiri',
+        password => 'amiri',
+    };
+    ok(my $new_user = $user_rs->recursive_update( $new_person ));
  
+    #print STDERR Dumper $new_user;
+
 #    $updates = {
 #            name => 'Test name 1',
 #    };
diff --git a/t/var/dvdzbr.db b/t/var/dvdzbr.db
index 279e7f719be81ce870561a079e918084717c7698..cf2b20f9fa13dc1f5465d4350678d34e8e6fb566 100644
GIT binary patch
delta 1109
zcmbu8O>7%Q6vt=gtv88dyLRnllh}<nb`vUWHwvPvpb%lZ?x7UnL}?n~$j-KLUAHEV
zY^O~~4>gzegpxire5mR?i3<k~Y1~^6RN}?~iiE_e;((A4y%ebu5D;R#3Bq@F=e;*G
zyP7xi|Gl~KnYghnHiiz4-D7)Cp9-8Y{}1=$k03yPH4Ia~@;&5HUL$Qs)4QV)#v}X>
zaSo>7p?Yg7R$)v1z)l)x$2lu6E#k+nmo+u9guiAlv^#nHW_Df>L(lYgf;iqW=iw>|
z{G#}qAi$%kOM*1~D3#jrYTlrez0Fknls)Aoeuw`kCd5NXz=!PnE|l)zKvS2iT}C*}
zo4JN{zEWJN7i)zna^REHv>+WP(ivEzF5F%jz}*c?i&3|ZRo9E~CiURm>=_`Zj!#{u
zwWdzJSlGNN$b~;|R-r_0j2B9oi{$AtqEX)T+v_hEYxU}qRVg>tI=W-&=}dAaW6mT~
zXEJ8T2lI&2G*{|q9gejAj=JN%!%BguvWPMO4L-n7JOuAZFIvUn{b;D<9YUnV|36O1
zsq%5yWvaE=dX@DmbJ|<*Y3HCM(@OgzkdQUBUWjW4^0JN(Ml9aIqpK3+ijE_$H(*^}
z#Xlq0AttY3Vd`^G^5f(yH-%io$BVIu131_9j%4kc5z0EwJJ(Kj!3HfC73j2(MH`pA
zxQ9!Y{=+3N?c<VVh3hSG`CnS{ilTLkR}`#q-iMo~NAdOBf!1!$r#XBop&NbL$=1xm
zcCS~5EQ4R*3495kz%pc8fy!%O4(kqP7%}VJa;<E;WV>gktlE|OqE#ujmaALc{gN@s
zUHm=KD^7^JFbVI&4s&2=^^~rl<?Q-B4wvZwZWUg|<zxV#xep2Q;<Ic8+~mV=$A-`|
z(hziTUsm!fSr-HaY+b2uUsvi^x~}hB=Yh1^eGfa&c#wZ3X2dP=6QtlVd!(k4Y);SL
zbL+;jAYWIPtGL=o$U%Kdj_SrZOOd7<qkf*CLpYKjh8%_Q>)Bk-91ZKnM3C2U{J4P|
zvnRA>jEp^eG+^VSL51%nK|`tx2a%3xIB<4SP*4qX;G_^v%vWyb!@^!U;c=@i0z7B%
Y7yJ&-Tg`=QfTmV;2@p&OWn8d-0MFh+7XSbN

delta 1098
zcmah{O>7%Q6rP#4-Z=hAoY>ALwqtLSf@+e~bwz{_5RtzkYNd#6(#El|Yhh!eR!wM3
zaFPn@OVtC1I!}tKrS6nl4=rjO5PuRBap4j~%85hOTzcVDPE-*G-X;bWB*gA~v-5pB
z`}WOy-^DxP;!SZS(Ee16?O%R+aK^kZZw%Z8pKK)>k(Ssj-83uGR##Mec!=>KE`>|1
zK(ukM!#ZtX<Jxo#EAQ&~c)GiV`1{%j&F2Y+aM*YTqpoN1nh{V)IF4T#$Dk-V9_}k*
zL=WO8*<M`e^Wmd%H%Ms0oa;@eUMiGJj%cM{Dj2EWf)mn)-yHe5?om9QcDBZ7JmM9;
zA=<^K;xR12Nw|k0J^W-aI|b9cDXHQg?lib%6K+2pz^lt8A?^6_RE#&{_Ee5L@WzT1
z(upIhqe8l{^W+6kr5lHzzf?cq9B2(v(k_CN;J7-8fq}5=^W6t_K^zD;KA<ai-`cTb
zn-W(N*FR8k&~+HE&4%nu)uLzq=Sc9M2@ZBTC_IN<M#Do(3wv2$&te31<wK>i^pO|8
zEyQ8AHiEfA7v30B@aEdEsEra$fulBt@$}iXOhnYiu_rUwJX4!cwRn&(V(d8$cdopk
zq-sZ1{K1tLwO6RbTfH{mTvea=wRKPny#%0s+b}e9$}?w9HfbY4UV*uD`J_2hy`Aiv
zG?S_p^YS7|g>rr=pPkE>v-9trE1b^~qY<fY`-6WA`fJB^67_?7N_5$r#qVBU5oQWs
zGWsEDrZJc3a9D8&rCbp=dU^wmb>mx7^@H>_nl#^_-I^y?Y;4&7qy>L5f{G>KZ-!r(
z84Mq|%(Iv}whBe_G?_5BxtnTJ(0TdQ&8gFOoE{r2F!&Yj!}nm)l5P6Vz6expeRE-c
z-QKaq*cRtJ!@m}vK?L&f1)+|i@=+{KpMkh+!JqO+glzpsKct6fTF5r)*6%{L<Dt>F
zh4kXi%sBVq{ZT_mKgP!<>KC|g0)Au;HpY00KNP3LL-11?58xiFk~pkpuDexjD9Bg$
zid-6$U8>awwnrD=VKStq5;B5c8VMyK!wokY0a%tHD(|vVQDp~J;S$VC4XY>Sm5M`l
d{$&%{wQmy{__s}D(6Y&F6S+X?m)%y2{sf>YLni<L

-- 
2.45.2