Source

Perl-XS-Guide / perl5 / ext-embed-internals / docbook / examples / incremental-examples-1 / XSTest / t / 10-array-from-scratch.t

use strict;
use warnings;

use Test::More tests => 2;

use XSTest;

{
    my @array1 = (0, 1, 200, 33);
    my @array2 = (4004, 50);

    my $combined = XSTest::concat_two_array_refs(\@array1, \@array2);
    # TEST
    is_deeply(
        $combined,
        [0, 1, 200, 33, 4004, 50],
        "concat_two_array_refs - 1"
    );
}

{
    my $combined;

    {
        my @array1 = ("Hon", "Ton", "Gorgon");
        my @array2 = ("Look", "Mook", "Crook");

        $combined = XSTest::concat_two_array_refs(\@array1, \@array2);
    }

    # TEST
    is_deeply(
        $combined,
        [qw(Hon Ton Gorgon Look Mook Crook)],
        "concat_two_array_refs - original go out of scope"
    );
}
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.