Skip to content

Commit

Permalink
update tests after NCI signature removal
Browse files Browse the repository at this point in the history
  • Loading branch information
plobsing committed Mar 5, 2011
1 parent 4a03e05 commit 566d8bf
Show file tree
Hide file tree
Showing 2 changed files with 1 addition and 39 deletions.
24 changes: 0 additions & 24 deletions src/nci_test.c
Expand Up @@ -96,7 +96,6 @@ PARROT_DYNEXT_EXPORT void * nci_pp(void *);
PARROT_DYNEXT_EXPORT short nci_s(void);
PARROT_DYNEXT_EXPORT short nci_ssc(short, char);
PARROT_DYNEXT_EXPORT char * nci_t(void);
PARROT_DYNEXT_EXPORT char * nci_tb(void *);
PARROT_DYNEXT_EXPORT char * nci_tB(void **);
PARROT_DYNEXT_EXPORT char * nci_tt(char *);
PARROT_DYNEXT_EXPORT void nci_v(void);
Expand Down Expand Up @@ -408,29 +407,6 @@ nci_t(void)

/*
=item C<PARROT_DYNEXT_EXPORT char * nci_tb(void *p)>
Returns "xx worked", where "xx" is replaced with the first two character values
of C<p>, in reverse order.
=cut
*/

static char b[] = "xx worked\n";

PARROT_DYNEXT_EXPORT
char *
nci_tb(void *p)
{
b[0] = ((char*) p)[1];
b[1] = ((char*) p)[0];

return b;
}

/*
=item C<PARROT_DYNEXT_EXPORT char * nci_tt(char *p)>
Returns "xx worked", where "xx" is replaced with the first two character values
Expand Down
16 changes: 1 addition & 15 deletions t/pmc/nci.t
Expand Up @@ -35,7 +35,7 @@ SKIP: {
unless ( -e "runtime/parrot/dynext/libnci_test$PConfig{load_ext}" ) {
plan skip_all => "Please make libnci_test$PConfig{load_ext}";
}
plan tests => 73;
plan tests => 72;

pir_output_is( << 'CODE', << 'OUTPUT', 'load library fails' );
.sub test :main
Expand Down Expand Up @@ -871,20 +871,6 @@ OUTPUT
CODE
42
4711
OUTPUT

pasm_output_is( <<'CODE', <<'OUTPUT', "nci_tb" );
.pcc_sub :main main:
loadlib P1, "libnci_test"
dlfunc P0, P1, "nci_tb", "tb"
set S5, "ko\n"
set_args "0", S5
invokecc P0
get_results "0", S5
print S5
end
CODE
ok worked
OUTPUT

pasm_output_is( <<'CODE', <<'OUTPUT', "nci_tB" );
Expand Down

0 comments on commit 566d8bf

Please sign in to comment.