Show
Ignore:
Timestamp:
02/16/09 21:09:31 (4 years ago)
Author:
yappo
Message:

not used registered column name of mysql

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/Data-Model/trunk/t/lib/Mock/Tests/NoKey.pm

    r24836 r30149  
    1010        my $data = shift @checks; 
    1111        ok $data; 
    12         is $row->int1, $data->{int1}; 
    13         is $row->int2, $data->{int2}; 
    14         is $row->char1, $data->{char1}; 
     12        is $row->c_int1, $data->{c_int1}; 
     13        is $row->c_int2, $data->{c_int2}; 
     14        is $row->c_char1, $data->{c_char1}; 
    1515    } 
    1616} 
    1717 
    1818sub t_01_set : Tests { 
    19     my $ret1 = mock->set( not_key => { int1 => 1, int2 => 100, char1 => 'char' } ); 
     19    my $ret1 = mock->set( not_key => { c_int1 => 1, c_int2 => 100, c_char1 => 'char' } ); 
    2020    isa_ok $ret1, mock_class."::not_key"; 
    21     is $ret1->int1, 1; 
    22     is $ret1->int2, 100; 
    23     is $ret1->char1, 'char'; 
    24  
    25     my $ret2 = mock->set( not_key => { int1 => 1, int2 => 100, char1 => 'char' } ); 
     21    is $ret1->c_int1, 1; 
     22    is $ret1->c_int2, 100; 
     23    is $ret1->c_char1, 'char'; 
     24 
     25    my $ret2 = mock->set( not_key => { c_int1 => 1, c_int2 => 100, c_char1 => 'char' } ); 
    2626    isa_ok $ret2, mock_class."::not_key"; 
    27     is $ret2->int1, 1; 
    28     is $ret2->int2, 100; 
    29     is $ret2->char1, 'char'; 
    30  
    31     my $ret3 = mock->set( not_key => { int1 => 2, int2 => 200, char1 => 'char' } ); 
     27    is $ret2->c_int1, 1; 
     28    is $ret2->c_int2, 100; 
     29    is $ret2->c_char1, 'char'; 
     30 
     31    my $ret3 = mock->set( not_key => { c_int1 => 2, c_int2 => 200, c_char1 => 'char' } ); 
    3232    isa_ok $ret3, mock_class."::not_key"; 
    33     is $ret3->int1, 2; 
    34     is $ret3->int2, 200; 
    35     is $ret3->char1, 'char'; 
    36  
    37     my $ret4 = mock->set( not_key => { int1 => 3, int2 => 200, char1 => 'lock' } ); 
     33    is $ret3->c_int1, 2; 
     34    is $ret3->c_int2, 200; 
     35    is $ret3->c_char1, 'char'; 
     36 
     37    my $ret4 = mock->set( not_key => { c_int1 => 3, c_int2 => 200, c_char1 => 'lock' } ); 
    3838    isa_ok $ret4, mock_class."::not_key"; 
    39     is $ret4->int1, 3; 
    40     is $ret4->int2, 200; 
    41     is $ret4->char1, 'lock'; 
    42  
    43     my $ret5 = mock->set( not_key => { int1 => 1, int2 => 101, char1 => 'check' } ); 
     39    is $ret4->c_int1, 3; 
     40    is $ret4->c_int2, 200; 
     41    is $ret4->c_char1, 'lock'; 
     42 
     43    my $ret5 = mock->set( not_key => { c_int1 => 1, c_int2 => 101, c_char1 => 'check' } ); 
    4444    isa_ok $ret5, mock_class."::not_key"; 
    45     is $ret5->int1, 1; 
    46     is $ret5->int2, 101; 
    47     is $ret5->char1, 'check'; 
    48 } 
    49  
    50 sub t_02_int1 : Tests { 
    51     my $it = mock->get( 
    52         not_key => +{  
    53             where => [ 
    54                 int1 => 1, 
    55             ], 
    56             order => [ { int2 => 'ASC' } ], 
    57         } 
    58     ); 
    59     ok $it; 
    60     _check_iterator($it, 
    61         +{ int1 => 1, int2 => 100, char1 => 'char' }, 
    62         +{ int1 => 1, int2 => 100, char1 => 'char' }, 
    63         +{ int1 => 1, int2 => 101, char1 => 'check' }, 
    64     ); 
    65 } 
    66  
    67 sub t_03_int2 : Tests { 
    68     my $it = mock->get( 
    69         not_key => +{  
    70             where => [ 
    71                 int2 => 200, 
    72             ], 
    73             order => [ { int1 => 'ASC' } ], 
    74         } 
    75     ); 
    76     ok $it; 
    77     _check_iterator($it, 
    78         +{ int1 => 2, int2 => 200, char1 => 'char' }, 
    79         +{ int1 => 3, int2 => 200, char1 => 'lock' }, 
    80     ); 
    81 } 
    82  
    83 sub t_04_char1 : Tests { 
    84     my $it = mock->get( 
    85         not_key => +{  
    86             where => [ 
    87                 char1 => 'char', 
    88             ], 
    89             order => [ { int1 => 'ASC' }, { int2 => 'ASC' } ], 
    90         } 
    91     ); 
    92     ok $it; 
    93     _check_iterator($it, 
    94         +{ int1 => 1, int2 => 100, char1 => 'char' }, 
    95         +{ int1 => 1, int2 => 100, char1 => 'char' }, 
    96         +{ int1 => 2, int2 => 200, char1 => 'char' }, 
    97     ); 
    98 } 
    99  
    100 sub t_05_char1_prefix : Tests { 
    101     my $it = mock->get( 
    102         not_key => +{  
    103             where => [ 
    104                 char1 => { LIKE => 'ch%' }, 
    105             ], 
    106             order => [ { int1 => 'ASC' }, { int2 => 'ASC' } ], 
    107         } 
    108     ); 
    109     ok $it; 
    110     _check_iterator($it, 
    111         +{ int1 => 1, int2 => 100, char1 => 'char' }, 
    112         +{ int1 => 1, int2 => 100, char1 => 'char' }, 
    113         +{ int1 => 1, int2 => 101, char1 => 'check' }, 
    114         +{ int1 => 2, int2 => 200, char1 => 'char' }, 
    115     ); 
    116 } 
    117  
    118 sub t_06_char1_suffix : Tests { 
    119     my $it = mock->get( 
    120         not_key => +{  
    121             where => [ 
    122                 char1 => { LIKE => '%ck' }, 
    123             ], 
    124             order => [ { int1 => 'ASC' }, { int2 => 'ASC' } ], 
    125         } 
    126     ); 
    127     ok $it; 
    128     _check_iterator($it, 
    129         +{ int1 => 1, int2 => 101, char1 => 'check' }, 
    130         +{ int1 => 3, int2 => 200, char1 => 'lock' }, 
    131     ); 
    132 } 
    133  
    134 sub t_07_char1_grep_1 : Tests { 
    135     my $it = mock->get( 
    136         not_key => +{  
    137             where => [ 
    138                 char1 => { LIKE => '%c%' }, 
    139             ], 
    140             order => [ { int1 => 'ASC' }, { int2 => 'ASC' } ], 
    141         } 
    142     ); 
    143     ok $it; 
    144     _check_iterator($it, 
    145         +{ int1 => 1, int2 => 100, char1 => 'char' }, 
    146         +{ int1 => 1, int2 => 100, char1 => 'char' }, 
    147         +{ int1 => 1, int2 => 101, char1 => 'check' }, 
    148         +{ int1 => 2, int2 => 200, char1 => 'char' }, 
    149         +{ int1 => 3, int2 => 200, char1 => 'lock' }, 
    150     ); 
    151 } 
    152  
    153 sub t_07_char1_grep_2 : Tests { 
    154     my $it = mock->get( 
    155         not_key => +{  
    156             where => [ 
    157                 char1 => { LIKE => '%h%' }, 
    158             ], 
    159             order => [ { int1 => 'ASC' }, { int2 => 'ASC' } ], 
    160         } 
    161     ); 
    162     ok $it; 
    163     _check_iterator($it, 
    164         +{ int1 => 1, int2 => 100, char1 => 'char' }, 
    165         +{ int1 => 1, int2 => 100, char1 => 'char' }, 
    166         +{ int1 => 1, int2 => 101, char1 => 'check' }, 
    167         +{ int1 => 2, int2 => 200, char1 => 'char' }, 
    168     ); 
    169 } 
    170  
    171 sub t_07_char1_grep_3 : Tests { 
    172     my $it = mock->get( 
    173         not_key => +{  
    174             where => [ 
    175                 char1 => { LIKE => '%h_r%' }, 
    176             ], 
    177             order => [ { int1 => 'ASC' }, { int2 => 'ASC' } ], 
    178         } 
    179     ); 
    180     ok $it; 
    181     _check_iterator($it, 
    182         +{ int1 => 1, int2 => 100, char1 => 'char' }, 
    183         +{ int1 => 1, int2 => 100, char1 => 'char' }, 
    184         +{ int1 => 2, int2 => 200, char1 => 'char' }, 
    185     ); 
    186 } 
    187  
    188 sub t_07_char1_grep_4 : Tests { 
    189     my $it = mock->get( 
    190         not_key => +{  
    191             where => [ 
    192                 char1 => { LIKE => '%h.r%' }, 
    193             ], 
    194             order => [ { int1 => 'ASC' }, { int2 => 'ASC' } ], 
     45    is $ret5->c_int1, 1; 
     46    is $ret5->c_int2, 101; 
     47    is $ret5->c_char1, 'check'; 
     48} 
     49 
     50sub t_02_c_int1 : Tests { 
     51    my $it = mock->get( 
     52        not_key => +{  
     53            where => [ 
     54                c_int1 => 1, 
     55            ], 
     56            order => [ { c_int2 => 'ASC' } ], 
     57        } 
     58    ); 
     59    ok $it; 
     60    _check_iterator($it, 
     61        +{ c_int1 => 1, c_int2 => 100, c_char1 => 'char' }, 
     62        +{ c_int1 => 1, c_int2 => 100, c_char1 => 'char' }, 
     63        +{ c_int1 => 1, c_int2 => 101, c_char1 => 'check' }, 
     64    ); 
     65} 
     66 
     67sub t_03_c_int2 : Tests { 
     68    my $it = mock->get( 
     69        not_key => +{  
     70            where => [ 
     71                c_int2 => 200, 
     72            ], 
     73            order => [ { c_int1 => 'ASC' } ], 
     74        } 
     75    ); 
     76    ok $it; 
     77    _check_iterator($it, 
     78        +{ c_int1 => 2, c_int2 => 200, c_char1 => 'char' }, 
     79        +{ c_int1 => 3, c_int2 => 200, c_char1 => 'lock' }, 
     80    ); 
     81} 
     82 
     83sub t_04_c_char1 : Tests { 
     84    my $it = mock->get( 
     85        not_key => +{  
     86            where => [ 
     87                c_char1 => 'char', 
     88            ], 
     89            order => [ { c_int1 => 'ASC' }, { c_int2 => 'ASC' } ], 
     90        } 
     91    ); 
     92    ok $it; 
     93    _check_iterator($it, 
     94        +{ c_int1 => 1, c_int2 => 100, c_char1 => 'char' }, 
     95        +{ c_int1 => 1, c_int2 => 100, c_char1 => 'char' }, 
     96        +{ c_int1 => 2, c_int2 => 200, c_char1 => 'char' }, 
     97    ); 
     98} 
     99 
     100sub t_05_c_char1_prefix : Tests { 
     101    my $it = mock->get( 
     102        not_key => +{  
     103            where => [ 
     104                c_char1 => { LIKE => 'ch%' }, 
     105            ], 
     106            order => [ { c_int1 => 'ASC' }, { c_int2 => 'ASC' } ], 
     107        } 
     108    ); 
     109    ok $it; 
     110    _check_iterator($it, 
     111        +{ c_int1 => 1, c_int2 => 100, c_char1 => 'char' }, 
     112        +{ c_int1 => 1, c_int2 => 100, c_char1 => 'char' }, 
     113        +{ c_int1 => 1, c_int2 => 101, c_char1 => 'check' }, 
     114        +{ c_int1 => 2, c_int2 => 200, c_char1 => 'char' }, 
     115    ); 
     116} 
     117 
     118sub t_06_c_char1_suffix : Tests { 
     119    my $it = mock->get( 
     120        not_key => +{  
     121            where => [ 
     122                c_char1 => { LIKE => '%ck' }, 
     123            ], 
     124            order => [ { c_int1 => 'ASC' }, { c_int2 => 'ASC' } ], 
     125        } 
     126    ); 
     127    ok $it; 
     128    _check_iterator($it, 
     129        +{ c_int1 => 1, c_int2 => 101, c_char1 => 'check' }, 
     130        +{ c_int1 => 3, c_int2 => 200, c_char1 => 'lock' }, 
     131    ); 
     132} 
     133 
     134sub t_07_c_char1_grep_1 : Tests { 
     135    my $it = mock->get( 
     136        not_key => +{  
     137            where => [ 
     138                c_char1 => { LIKE => '%c%' }, 
     139            ], 
     140            order => [ { c_int1 => 'ASC' }, { c_int2 => 'ASC' } ], 
     141        } 
     142    ); 
     143    ok $it; 
     144    _check_iterator($it, 
     145        +{ c_int1 => 1, c_int2 => 100, c_char1 => 'char' }, 
     146        +{ c_int1 => 1, c_int2 => 100, c_char1 => 'char' }, 
     147        +{ c_int1 => 1, c_int2 => 101, c_char1 => 'check' }, 
     148        +{ c_int1 => 2, c_int2 => 200, c_char1 => 'char' }, 
     149        +{ c_int1 => 3, c_int2 => 200, c_char1 => 'lock' }, 
     150    ); 
     151} 
     152 
     153sub t_07_c_char1_grep_2 : Tests { 
     154    my $it = mock->get( 
     155        not_key => +{  
     156            where => [ 
     157                c_char1 => { LIKE => '%h%' }, 
     158            ], 
     159            order => [ { c_int1 => 'ASC' }, { c_int2 => 'ASC' } ], 
     160        } 
     161    ); 
     162    ok $it; 
     163    _check_iterator($it, 
     164        +{ c_int1 => 1, c_int2 => 100, c_char1 => 'char' }, 
     165        +{ c_int1 => 1, c_int2 => 100, c_char1 => 'char' }, 
     166        +{ c_int1 => 1, c_int2 => 101, c_char1 => 'check' }, 
     167        +{ c_int1 => 2, c_int2 => 200, c_char1 => 'char' }, 
     168    ); 
     169} 
     170 
     171sub t_07_c_char1_grep_3 : Tests { 
     172    my $it = mock->get( 
     173        not_key => +{  
     174            where => [ 
     175                c_char1 => { LIKE => '%h_r%' }, 
     176            ], 
     177            order => [ { c_int1 => 'ASC' }, { c_int2 => 'ASC' } ], 
     178        } 
     179    ); 
     180    ok $it; 
     181    _check_iterator($it, 
     182        +{ c_int1 => 1, c_int2 => 100, c_char1 => 'char' }, 
     183        +{ c_int1 => 1, c_int2 => 100, c_char1 => 'char' }, 
     184        +{ c_int1 => 2, c_int2 => 200, c_char1 => 'char' }, 
     185    ); 
     186} 
     187 
     188sub t_07_c_char1_grep_4 : Tests { 
     189    my $it = mock->get( 
     190        not_key => +{  
     191            where => [ 
     192                c_char1 => { LIKE => '%h.r%' }, 
     193            ], 
     194            order => [ { c_int1 => 'ASC' }, { c_int2 => 'ASC' } ], 
    195195        } 
    196196    ); 
    … …  
    198198} 
    199199 
    200 sub t_07_char1_grep_5 : Tests { 
    201     my $it = mock->get( 
    202         not_key => +{  
    203             where => [ 
    204                 char1 => { LIKE => '.+' }, 
    205             ], 
    206             order => [ { int1 => 'ASC' }, { int2 => 'ASC' } ], 
     200sub t_07_c_char1_grep_5 : Tests { 
     201    my $it = mock->get( 
     202        not_key => +{  
     203            where => [ 
     204                c_char1 => { LIKE => '.+' }, 
     205            ], 
     206            order => [ { c_int1 => 'ASC' }, { c_int2 => 'ASC' } ], 
    207207        } 
    208208    ); 
    … …  
    214214        not_key => +{  
    215215            where => [ 
    216                 int1 => { 'NOT IN' => [ 1, 2 ] }, 
    217             ], 
    218             order => [ { int1 => 'ASC' }, { int2 => 'ASC' } ], 
    219         } 
    220     ); 
    221     ok $it; 
    222     _check_iterator($it, 
    223         +{ int1 => 3, int2 => 200, char1 => 'lock' }, 
     216                c_int1 => { 'NOT IN' => [ 1, 2 ] }, 
     217            ], 
     218            order => [ { c_int1 => 'ASC' }, { c_int2 => 'ASC' } ], 
     219        } 
     220    ); 
     221    ok $it; 
     222    _check_iterator($it, 
     223        +{ c_int1 => 3, c_int2 => 200, c_char1 => 'lock' }, 
    224224    ); 
    225225} 
    … …  
    229229        not_key => +{  
    230230            where => [ 
    231                 int1 => { '!=' => 1 }, 
    232             ], 
    233             order => [ { int1 => 'ASC' }, { int2 => 'ASC' } ], 
    234         } 
    235     ); 
    236     ok $it; 
    237     _check_iterator($it, 
    238         +{ int1 => 2, int2 => 200, char1 => 'char' }, 
    239         +{ int1 => 3, int2 => 200, char1 => 'lock' }, 
     231                c_int1 => { '!=' => 1 }, 
     232            ], 
     233            order => [ { c_int1 => 'ASC' }, { c_int2 => 'ASC' } ], 
     234        } 
     235    ); 
     236    ok $it; 
     237    _check_iterator($it, 
     238        +{ c_int1 => 2, c_int2 => 200, c_char1 => 'char' }, 
     239        +{ c_int1 => 3, c_int2 => 200, c_char1 => 'lock' }, 
    240240    ); 
    241241} 
    … …  
    245245        not_key => +{  
    246246            where => [ 
    247                 int1 => { '>' => 1 }, 
    248             ], 
    249             order => [ { int1 => 'ASC' }, { int2 => 'ASC' } ], 
    250         } 
    251     ); 
    252     ok $it; 
    253     _check_iterator($it, 
    254         +{ int1 => 2, int2 => 200, char1 => 'char' }, 
    255         +{ int1 => 3, int2 => 200, char1 => 'lock' }, 
     247                c_int1 => { '>' => 1 }, 
     248            ], 
     249            order => [ { c_int1 => 'ASC' }, { c_int2 => 'ASC' } ], 
     250        } 
     251    ); 
     252    ok $it; 
     253    _check_iterator($it, 
     254        +{ c_int1 => 2, c_int2 => 200, c_char1 => 'char' }, 
     255        +{ c_int1 => 3, c_int2 => 200, c_char1 => 'lock' }, 
    256256    ); 
    257257} 
    … …  
    261261        not_key => +{  
    262262            where => [ 
    263                 int2 => { '>' => 100 }, 
    264                 int2 => { '<' => 200 }, 
    265             ], 
    266             order => [ { int1 => 'ASC' }, { int2 => 'ASC' } ], 
    267         } 
    268     ); 
    269     ok $it; 
    270     _check_iterator($it, 
    271         +{ int1 => 1, int2 => 101, char1 => 'check' }, 
     263                c_int2 => { '>' => 100 }, 
     264                c_int2 => { '<' => 200 }, 
     265            ], 
     266            order => [ { c_int1 => 'ASC' }, { c_int2 => 'ASC' } ], 
     267        } 
     268    ); 
     269    ok $it; 
     270    _check_iterator($it, 
     271        +{ c_int1 => 1, c_int2 => 101, c_char1 => 'check' }, 
    272272    ); 
    273273} 
    … …  
    278278            where => [ 
    279279                -or => [ 
    280                     int1 => { '>' => 2 }, 
    281                     int2 => { '<' => 200 }, 
     280                    c_int1 => { '>' => 2 }, 
     281                    c_int2 => { '<' => 200 }, 
    282282                ], 
    283283            ], 
    284             order => [ { int1 => 'ASC' }, { int2 => 'ASC' } ], 
    285         } 
    286     ); 
    287     ok $it; 
    288     _check_iterator($it, 
    289         +{ int1 => 1, int2 => 100, char1 => 'char' }, 
    290         +{ int1 => 1, int2 => 100, char1 => 'char' }, 
    291         +{ int1 => 1, int2 => 101, char1 => 'check' }, 
    292         +{ int1 => 3, int2 => 200, char1 => 'lock' }, 
     284            order => [ { c_int1 => 'ASC' }, { c_int2 => 'ASC' } ], 
     285        } 
     286    ); 
     287    ok $it; 
     288    _check_iterator($it, 
     289        +{ c_int1 => 1, c_int2 => 100, c_char1 => 'char' }, 
     290        +{ c_int1 => 1, c_int2 => 100, c_char1 => 'char' }, 
     291        +{ c_int1 => 1, c_int2 => 101, c_char1 => 'check' }, 
     292        +{ c_int1 => 3, c_int2 => 200, c_char1 => 'lock' }, 
    293293    ); 
    294294} 
    … …  
    299299            where => [ 
    300300                -or => [ 
    301                     int2 => { IN => [ 101, 200 ] }, 
     301                    c_int2 => { IN => [ 101, 200 ] }, 
    302302                ], 
    303303            ], 
    304             order => [ { int1 => 'ASC' }, { int2 => 'ASC' } ], 
    305         } 
    306     ); 
    307     ok $it; 
    308     _check_iterator($it, 
    309         +{ int1 => 1, int2 => 101, char1 => 'check' }, 
    310         +{ int1 => 2, int2 => 200, char1 => 'char' }, 
    311         +{ int1 => 3, int2 => 200, char1 => 'lock' }, 
     304            order => [ { c_int1 => 'ASC' }, { c_int2 => 'ASC' } ], 
     305        } 
     306    ); 
     307    ok $it; 
     308    _check_iterator($it, 
     309        +{ c_int1 => 1, c_int2 => 101, c_char1 => 'check' }, 
     310        +{ c_int1 => 2, c_int2 => 200, c_char1 => 'char' }, 
     311        +{ c_int1 => 3, c_int2 => 200, c_char1 => 'lock' }, 
    312312    ); 
    313313} 
    … …  
    317317        'not_key', 
    318318        +{ 
    319             where => [ int1 => +{ '!=' => 100 } ], 
    320             order => [ { int1 => 'ASC' }, { int2 => 'ASC' } ], 
     319            where => [ c_int1 => +{ '!=' => 100 } ], 
     320            order => [ { c_int1 => 'ASC' }, { c_int2 => 'ASC' } ], 
    321321        } 
    322322    ); 
    323323    ok $it, 'get'; 
    324324    _check_iterator($it, 
    325         +{ int1 => 1, int2 => 100, char1 => 'char' }, 
    326         +{ int1 => 1, int2 => 100, char1 => 'char' }, 
    327         +{ int1 => 1, int2 => 101, char1 => 'check' }, 
    328         +{ int1 => 2, int2 => 200, char1 => 'char' }, 
    329         +{ int1 => 3, int2 => 200, char1 => 'lock' }, 
     325        +{ c_int1 => 1, c_int2 => 100, c_char1 => 'char' }, 
     326        +{ c_int1 => 1, c_int2 => 100, c_char1 => 'char' }, 
     327        +{ c_int1 => 1, c_int2 => 101, c_char1 => 'check' }, 
     328        +{ c_int1 => 2, c_int2 => 200, c_char1 => 'char' }, 
     329        +{ c_int1 => 3, c_int2 => 200, c_char1 => 'lock' }, 
    330330    ); 
    331331} 
    … …  
    335335        not_key => +{  
    336336            where => [ 
    337                 int1 => 1, 
    338                 int2 => 100, 
    339             ], 
    340             order => [ { int1 => 'ASC' }, { int2 => 'ASC' } ], 
    341         } 
    342     ); 
    343     ok $it; 
    344     _check_iterator($it, 
    345         +{ int1 => 1, int2 => 100, char1 => 'char' }, 
    346         +{ int1 => 1, int2 => 100, char1 => 'char' }, 
     337                c_int1 => 1, 
     338                c_int2 => 100, 
     339            ], 
     340            order => [ { c_int1 => 'ASC' }, { c_int2 => 'ASC' } ], 
     341        } 
     342    ); 
     343    ok $it; 
     344    _check_iterator($it, 
     345        +{ c_int1 => 1, c_int2 => 100, c_char1 => 'char' }, 
     346        +{ c_int1 => 1, c_int2 => 100, c_char1 => 'char' }, 
    347347    ); 
    348348} 
    … …  
    353353            where => [ 
    354354                -or => [ 
    355                     int1 => 1, 
    356                     int2 => 100, 
     355                    c_int1 => 1, 
     356                    c_int2 => 100, 
    357357                ], 
    358358            ], 
    359             order => [ { int1 => 'ASC' }, { int2 => 'ASC' } ], 
    360         } 
    361     ); 
    362     ok $it; 
    363     _check_iterator($it, 
    364         +{ int1 => 1, int2 => 100, char1 => 'char' }, 
    365         +{ int1 => 1, int2 => 100, char1 => 'char' }, 
    366         +{ int1 => 1, int2 => 101, char1 => 'check' }, 
     359            order => [ { c_int1 => 'ASC' }, { c_int2 => 'ASC' } ], 
     360        } 
     361    ); 
     362    ok $it; 
     363    _check_iterator($it, 
     364        +{ c_int1 => 1, c_int2 => 100, c_char1 => 'char' }, 
     365        +{ c_int1 => 1, c_int2 => 100, c_char1 => 'char' }, 
     366        +{ c_int1 => 1, c_int2 => 101, c_char1 => 'check' }, 
    367367    ); 
    368368} 
    … …  
    373373            where => [ 
    374374                -and => [ 
    375                     char1 => 'char', 
     375                    c_char1 => 'char', 
    376376                    -or   => [ 
    377                         int2 => 100, 
    378                         int2 => 200, 
     377                        c_int2 => 100, 
     378                        c_int2 => 200, 
    379379                    ], 
    380380                ] 
    381381            ], 
    382             order => [ { int1 => 'ASC' }, { int2 => 'ASC' } ], 
    383         } 
    384     ); 
    385     ok $it; 
    386     _check_iterator($it, 
    387         +{ int1 => 1, int2 => 100, char1 => 'char' }, 
    388         +{ int1 => 1, int2 => 100, char1 => 'char' }, 
    389         +{ int1 => 2, int2 => 200, char1 => 'char' }, 
     382            order => [ { c_int1 => 'ASC' }, { c_int2 => 'ASC' } ], 
     383        } 
     384    ); 
     385    ok $it; 
     386    _check_iterator($it, 
     387        +{ c_int1 => 1, c_int2 => 100, c_char1 => 'char' }, 
     388        +{ c_int1 => 1, c_int2 => 100, c_char1 => 'char' }, 
     389        +{ c_int1 => 2, c_int2 => 200, c_char1 => 'char' }, 
    390390    ); 
    391391} 
    … …  
    395395        not_key => +{  
    396396            where => [ 
    397                 int1 => 1, 
     397                c_int1 => 1, 
    398398            ], 
    399399        } 
    400400    ); 
    401401    isa_ok $get, mock_class."::not_key"; 
    402     $get->char1('update'); 
     402    $get->c_char1('update'); 
    403403    my $set = $get->update; 
    404404    ok !$set; 
    … …  
    409409        not_key => +{  
    410410            where => [ 
    411                 int1 => 1, 
     411                c_int1 => 1, 
    412412            ], 
    413413        } 
    … …  
    418418        not_key => +{  
    419419            where => [ 
    420                 int1 => 1, 
     420                c_int1 => 1, 
    421421            ], 
    422422        } 
    … …  
    427427sub t_71_direct_update : Tests { 
    428428 
    429     my $set1 = mock->set( not_key => { int1 => 99, int2 => 999, char1 => 'kyu' } ); 
     429    my $set1 = mock->set( not_key => { c_int1 => 99, c_int2 => 999, c_char1 => 'kyu' } ); 
    430430    isa_ok $set1, mock_class."::not_key"; 
    431     is $set1->int1, 99; 
    432     is $set1->int2, 999; 
    433     is $set1->char1, 'kyu'; 
     431    is $set1->c_int1, 99; 
     432    is $set1->c_int2, 999; 
     433    is $set1->c_char1, 'kyu'; 
    434434 
    435435    ok mock->update_direct( 
    436436        not_key => +{ 
    437437            where => [ 
    438                 char1 => 'kyu', 
     438                c_char1 => 'kyu', 
    439439            ], 
    440440        }, 
    441441        +{ 
    442             int1  => 100, 
    443             int2  => 1000, 
    444             char1 => 'sen', 
     442            c_int1  => 100, 
     443            c_int2  => 1000, 
     444            c_char1 => 'sen', 
    445445        }, 
    446446    ); 
    … …  
    449449        'not_key', 
    450450        +{ 
    451             where => [ int1 => +{ '!=' => 100 } ], 
    452             order => [ { int1 => 'ASC' }, { int2 => 'ASC' } ], 
     451            where => [ c_int1 => +{ '!=' => 100 } ], 
     452            order => [ { c_int1 => 'ASC' }, { c_int2 => 'ASC' } ], 
    453453        } 
    454454    ); 
    455455    ok $it, 'get'; 
    456456    _check_iterator($it, 
    457         +{ int1 => 1, int2 => 100, char1 => 'char' }, 
    458         +{ int1 => 1, int2 => 100, char1 => 'char' }, 
    459         +{ int1 => 1, int2 => 101, char1 => 'check' }, 
    460         +{ int1 => 2, int2 => 200, char1 => 'char' }, 
    461         +{ int1 => 3, int2 => 200, char1 => 'lock' }, 
    462     ); 
    463  
    464     my($get1) = mock->get( not_key => { where => [ int1 => 100 ] } ); 
     457        +{ c_int1 => 1, c_int2 => 100, c_char1 => 'char' }, 
     458        +{ c_int1 => 1, c_int2 => 100, c_char1 => 'char' }, 
     459        +{ c_int1 => 1, c_int2 => 101, c_char1 => 'check' }, 
     460        +{ c_int1 => 2, c_int2 => 200, c_char1 => 'char' }, 
     461        +{ c_int1 => 3, c_int2 => 200, c_char1 => 'lock' }, 
     462    ); 
     463 
     464    my($get1) = mock->get( not_key => { where => [ c_int1 => 100 ] } ); 
    465465    isa_ok $get1, mock_class."::not_key"; 
    466     is $get1->int1, 100; 
    467     is $get1->int2, 1000; 
    468     is $get1->char1, 'sen'; 
     466    is $get1->c_int1, 100; 
     467    is $get1->c_int2, 1000; 
     468    is $get1->c_char1, 'sen'; 
    469469} 
    470470