diff options
-rw-r--r-- | Examples/test-suite/perl5/li_std_string_runme.pl | 3 | ||||
-rw-r--r-- | Examples/test-suite/ruby/li_std_string_runme.rb | 3 |
2 files changed, 5 insertions, 1 deletions
diff --git a/Examples/test-suite/perl5/li_std_string_runme.pl b/Examples/test-suite/perl5/li_std_string_runme.pl index e6358ff1f..3c3f9d5b4 100644 --- a/Examples/test-suite/perl5/li_std_string_runme.pl +++ b/Examples/test-suite/perl5/li_std_string_runme.pl @@ -1,6 +1,6 @@ use strict; use warnings; -use Test::More tests => 30; +use Test::More tests => 31; BEGIN { use_ok('li_std_string') } require_ok('li_std_string'); @@ -77,6 +77,7 @@ is(li_std_string::test_reference_input("hello"), "hello", "reference_input"); is(li_std_string::test_reference_inout("hello"), "hellohello", "reference_inout"); +is(li_std_string::test_reference_output(), "output", "reference_output"); no strict; my $gen1 = new li_std_string::Foo(); diff --git a/Examples/test-suite/ruby/li_std_string_runme.rb b/Examples/test-suite/ruby/li_std_string_runme.rb index dc85b5dab..c964808fa 100644 --- a/Examples/test-suite/ruby/li_std_string_runme.rb +++ b/Examples/test-suite/ruby/li_std_string_runme.rb @@ -122,6 +122,9 @@ s = test_reference_inout("hello") if (s != "hellohello") raise RuntimeError end +if (test_reference_output() != "output") + raise RuntimeError +end if (stdstring_empty() != "") |