add test cases

diff --git a/t/snippets/dia.in b/t/snippets/dia.in
index 899e086906b6b34d7f1a8c463fffc18845199b16..538bd99cf6030cbfe78530b6696f46d79abc3696 100644 (file)
--- a/t/snippets/dia.in
+++ b/t/snippets/dia.in
@@ -10,3 +10,6 @@ $this->{'hline_color'}->[ $last_drawn_row + 1 ]->[$col];
 $tagslib->{ $fields[$x_i]->tag() }{ $subf[$i][0] }{tab};
 $m2_results{ $modlog->{uid} }->{m2_count}{ $_->{uid} }++;
 $self->_get_meta_data_hash_ref()->{ $p_object->get_key() }->[$p_offset];
+my $v2  = [ 1, 2, [ 3, 4 ] ]->[2]->[0];
+my $val1 = ${$x}[1];
+my $val2 = $${$x}->[1];

diff --git a/t/snippets/expect/dia.def b/t/snippets/expect/dia.def
index 899e086906b6b34d7f1a8c463fffc18845199b16..ff9e839df8bee61bf7856dbad2207b4bb5d0ea37 100644 (file)
--- a/t/snippets/expect/dia.def
+++ b/t/snippets/expect/dia.def
@@ -10,3 +10,6 @@ $this->{'hline_color'}->[ $last_drawn_row + 1 ]->[$col];
 $tagslib->{ $fields[$x_i]->tag() }{ $subf[$i][0] }{tab};
 $m2_results{ $modlog->{uid} }->{m2_count}{ $_->{uid} }++;
 $self->_get_meta_data_hash_ref()->{ $p_object->get_key() }->[$p_offset];
+my $v2   = [ 1, 2, [ 3, 4 ] ]->[2]->[0];
+my $val1 = ${$x}[1];
+my $val2 = $${$x}->[1];

diff --git a/t/snippets/expect/dia.dia1 b/t/snippets/expect/dia.dia1
index e734c252fa2f85fb42c285afa1555101d9527f02..0bfcedb89eb46e44d32d7e15d4addfdb3ff5f1ec 100644 (file)
--- a/t/snippets/expect/dia.dia1
+++ b/t/snippets/expect/dia.dia1
@@ -10,3 +10,6 @@ $this->{'hline_color'}[ $last_drawn_row + 1 ][$col];
 $tagslib->{ $fields[$x_i]->tag() }{ $subf[$i][0] }{tab};
 $m2_results{ $modlog->{uid} }->{m2_count}{ $_->{uid} }++;
 $self->_get_meta_data_hash_ref()->{ $p_object->get_key() }->[$p_offset];
+my $v2   = [ 1, 2, [ 3, 4 ] ]->[2][0];
+my $val1 = ${$x}[1];
+my $val2 = $${$x}->[1];

diff --git a/t/snippets/expect/dia.dia2 b/t/snippets/expect/dia.dia2
index 8bdb594d9499621e9bf549c9b812a9becf8d75ec..eadd090c39c9c3fb87b908e95580c674e2d0494b 100644 (file)
--- a/t/snippets/expect/dia.dia2
+++ b/t/snippets/expect/dia.dia2
@@ -10,3 +10,6 @@ $this->{'hline_color'}->[ $last_drawn_row + 1 ]->[$col];
 $tagslib->{ $fields[$x_i]->tag() }{ $subf[$i]->[0] }{tab};
 $m2_results{ $modlog->{uid} }->{m2_count}->{ $_->{uid} }++;
 $self->_get_meta_data_hash_ref()->{ $p_object->get_key() }->[$p_offset];
+my $v2   = [ 1, 2, [ 3, 4 ] ]->[2]->[0];
+my $val1 = ${$x}[1];
+my $val2 = $${$x}->[1];

diff --git a/t/snippets/expect/dia.dia3 b/t/snippets/expect/dia.dia3
index 8096fd18123a51c6ae1043107b03ea03f3ac7b3f..0fc36bf2b75bed9121f3efdba9402e2fbffde9e0 100644 (file)
--- a/t/snippets/expect/dia.dia3
+++ b/t/snippets/expect/dia.dia3
@@ -10,3 +10,6 @@ $this->{'hline_color'}->[ $last_drawn_row + 1 ][$col];
 $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] }->{tab};
 $m2_results{ $modlog->{uid} }->{m2_count}->{ $_->{uid} }++;
 $self->_get_meta_data_hash_ref()->{ $p_object->get_key() }->[$p_offset];
+my $v2   = [ 1, 2, [ 3, 4 ] ]->[2][0];
+my $val1 = ${$x}[1];
+my $val2 = $${$x}->[1];

diff --git a/t/snippets29.t b/t/snippets29.t
index e067633640137953a5367cb736c023b356161609..64c55bd26fea6e9f0d24b343cc4150981dda55f7 100644 (file)
--- a/t/snippets29.t
+++ b/t/snippets29.t
@@ -63,6 +63,9 @@ $this->{'hline_color'}->[ $last_drawn_row + 1 ]->[$col];
 $tagslib->{ $fields[$x_i]->tag() }{ $subf[$i][0] }{tab};
 $m2_results{ $modlog->{uid} }->{m2_count}{ $_->{uid} }++;
 $self->_get_meta_data_hash_ref()->{ $p_object->get_key() }->[$p_offset];
+my $v2  = [ 1, 2, [ 3, 4 ] ]->[2]->[0];
+my $val1 = ${$x}[1];
+my $val2 = $${$x}->[1];
 ----------
 
         'git125' => <<'----------',
@@ -173,6 +176,9 @@ $this->{'hline_color'}->[ $last_drawn_row + 1 ]->[$col];
 $tagslib->{ $fields[$x_i]->tag() }{ $subf[$i][0] }{tab};
 $m2_results{ $modlog->{uid} }->{m2_count}{ $_->{uid} }++;
 $self->_get_meta_data_hash_ref()->{ $p_object->get_key() }->[$p_offset];
+my $v2   = [ 1, 2, [ 3, 4 ] ]->[2]->[0];
+my $val1 = ${$x}[1];
+my $val2 = $${$x}->[1];
 #5...........
         },
 
@@ -192,6 +198,9 @@ $this->{'hline_color'}[ $last_drawn_row + 1 ][$col];
 $tagslib->{ $fields[$x_i]->tag() }{ $subf[$i][0] }{tab};
 $m2_results{ $modlog->{uid} }->{m2_count}{ $_->{uid} }++;
 $self->_get_meta_data_hash_ref()->{ $p_object->get_key() }->[$p_offset];
+my $v2   = [ 1, 2, [ 3, 4 ] ]->[2][0];
+my $val1 = ${$x}[1];
+my $val2 = $${$x}->[1];
 #6...........
         },
 
@@ -211,6 +220,9 @@ $this->{'hline_color'}->[ $last_drawn_row + 1 ]->[$col];
 $tagslib->{ $fields[$x_i]->tag() }{ $subf[$i]->[0] }{tab};
 $m2_results{ $modlog->{uid} }->{m2_count}->{ $_->{uid} }++;
 $self->_get_meta_data_hash_ref()->{ $p_object->get_key() }->[$p_offset];
+my $v2   = [ 1, 2, [ 3, 4 ] ]->[2]->[0];
+my $val1 = ${$x}[1];
+my $val2 = $${$x}->[1];
 #7...........
         },
 
@@ -230,6 +242,9 @@ $this->{'hline_color'}->[ $last_drawn_row + 1 ][$col];
 $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] }->{tab};
 $m2_results{ $modlog->{uid} }->{m2_count}->{ $_->{uid} }++;
 $self->_get_meta_data_hash_ref()->{ $p_object->get_key() }->[$p_offset];
+my $v2   = [ 1, 2, [ 3, 4 ] ]->[2][0];
+my $val1 = ${$x}[1];
+my $val2 = $${$x}->[1];
 #8...........
         },
     };