nciutils.t

#!./parrot
# Copyright (C) 2001-2012, Parrot Foundation.

=head1 NAME

t/library/nciutils.t -- Tests for NCI::Utils

=head1 SYNOPSIS

    % prove t/library/nciutils.t

=head1 DESCRIPTION

Testing NCI::Utils calls to libc and libnci_test.

=cut

.include 'iglobals.pasm'

.sub 'main' :main
    load_bytecode 'Test/More.pbc'

    .local pmc exports, curr_namespace, test_namespace
    curr_namespace = get_namespace
    test_namespace = get_namespace ['Test';'More']
    exports        = split ' ', 'plan diag ok nok is todo skip skip_all'
    test_namespace.'export_to'(curr_namespace, exports)

    $P0 = getinterp
    $P1 = $P0[.IGLOBALS_CONFIG_HASH]
    $I1 = $P1['HAS_EXTRA_NCI_THUNKS']
    if $I1 == 1 goto have_enough_nci
    $I1 = $P1['HAS_LIBFFI']
    if $I1 == 1 goto have_enough_nci

    skip_all('No NCI thunks')
    exit 0

  have_enough_nci:
    ##  set our plan
    plan(14)

    ##  make sure we can load the NCI::Utils library
    push_eh load_fail
    load_bytecode 'NCI/Utils.pbc'
    pop_eh
    ok(1, 'load_bytecode')
    goto load_success

  load_fail:
    ok(0, "load_bytecode 'P6object.pbc' failed -- skipping tests")
    .return ()

  load_success:
    .local pmc ncifunc, null_pmc
    ncifunc = get_hll_global ['NCI';'Utils'], 'ncifunc'
    null null_pmc

    ## try some builtin stdlib funcs
    $P0 = ncifunc(null_pmc, 'atoi', 'it')
    $I0 = defined $P0
    unless $I0 goto skip_libc
    $S0 = "2468"
    ( $I0 ) = $P0($S0)
  check_atoi:
    is($I0, 2468, 'atoi("2468")')

    $P0 = ncifunc(null_pmc, 'atol', 'lt')
    $I0 = defined $P0
    unless $I0 goto check_atol
    $S0 = "7654321"
    ( $I0 ) = $P0($S0)
  check_atol:
    is($I0, 7654321, 'atol("7654321")')

    $P0 = ncifunc(null_pmc, 'strcmp', 'itt')
    $I0 = 42
    $I1 = defined $P0
    unless $I1 goto check_strcmp
    ( $I0 ) = $P0('hello', 'hello')
  check_strcmp:
    is($I0, 0, 'strcmp == 0')

    $P0 = ncifunc(null_pmc, 'strstr', 'ttt')
    $I0 = defined $P0
    unless $I0 goto check_strstr
    ( $S0 ) = $P0('hello', 'e')
  check_strstr:
    is($S0, 'ello', 'strstr("hello", "e")')
    goto cont_libnci

  skip_libc:
    skip(4, 'atoi not found in default libc')

  cont_libnci:
    ##  load a library
    .local pmc libnci_test
    libnci_test = loadlib "libnci_test"
    $I0 = isnull libnci_test
    nok($I0, "libnci_test loaded")
    if $I0 goto loadlib_failed


    $P0 = ncifunc(libnci_test, 'nci_c', 'c')
    $I0 = $P0()
    is( $I0, 22, "nci_c - return char in $I0" )

    $P0 = ncifunc(libnci_test, 'nci_l', 'l')
    $I0 = $P0()
    is( $I0, -7777777, "nci_l - return long in $I0" )

    $P0 = ncifunc(libnci_test, 'nci_s', 's')
    $I0 = $P0()
    is($I0, 333, "nci_s - return a short in $I0")

    $P0 = ncifunc(libnci_test, 'nci_t', 't')
    $S0 = $P0()
    is($S0, "This is a C-string.\n", "nci_t - return a C string")

    $P0 = ncifunc(libnci_test, 'nci_isc', 'isc')
    $I1 = 2
    $I2 = 3
    $I0 = $P0($I1, $I2)
    is($I0, 6, "nci_isc - return an int from short + char")

    $P0 = ncifunc(libnci_test, 'nci_ssc', 'ssc')
    $I1 = -2
    $I2 = 3
    $I0 = $P0($I1, $I2)
    is($I0, -6, "nci_ssc - return short from short + char")

    $P0 = ncifunc(libnci_test, 'nci_tt', 'tt')
    $S0 = "ko"
    $S1 = $P0($S0)
    is($S1, "ok worked\n", "nci_tt - flip two characters")

    $P0 = ncifunc(libnci_test, 'nci_pi', 'pi')
    $I0 = 10
    $P1 = $P0($I0)
    $I1 = isnull $P1
    ok($I1, "nci_pi(10) - returned a null pointer as PMCNULL")

  loadlib_failed:
    .return ()
.end

# Local Variables:
#   mode: pir
#   fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir: