From eec064dc750920d21d7a98a5742782958ed90856 Mon Sep 17 00:00:00 2001 From: Steve Hancock Date: Thu, 8 Feb 2024 17:06:13 -0800 Subject: [PATCH] add test cases --- t/snippets/dia.in | 3 +++ t/snippets/expect/dia.def | 3 +++ t/snippets/expect/dia.dia1 | 3 +++ t/snippets/expect/dia.dia2 | 3 +++ t/snippets/expect/dia.dia3 | 3 +++ t/snippets29.t | 15 +++++++++++++++ 6 files changed, 30 insertions(+) diff --git a/t/snippets/dia.in b/t/snippets/dia.in index 899e0869..538bd99c 100644 --- 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 899e0869..ff9e839d 100644 --- 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 e734c252..0bfcedb8 100644 --- 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 8bdb594d..eadd090c 100644 --- 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 8096fd18..0fc36bf2 100644 --- 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 e0676336..64c55bd2 100644 --- 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........... }, }; -- 2.39.5