berriedale
/
async-ada
1
0
Fork 0
Code Issues Pull Requests Releases Activity

Test epoll_data_t with a uint64_t

This commit is contained in:
R. Tyler Croy 2011-02-12 13:58:42 -08:00
parent 39d736735a
commit 32fff8bf41
2 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
tests/epoll_data/epoll-test.adb
View File

@ -1,9 +1,11 @@
with System;
with Ada.Text_IO;
with Interfaces.C;
with Epoll;
use Ada.Text_IO;
use System;
procedure Epoll.Test is
Test_Failed : exception;
@ -25,9 +27,13 @@ procedure Epoll.Test is
function Fd_Of_One return Epoll_Data;
function U32_Of_Two return Epoll_Data;
function U64_Of_Lots return Epoll_Data;
function Bad_Pointer return Epoll_Data;
pragma Import (C, Fd_Of_One, "fd_of_one");
pragma Import (C, U32_Of_Two, "u32_of_two");
pragma Import (C, U64_Of_Lots, "u64_of_lots");
pragma Import (C, Bad_Pointer, "badpointer");
begin
Put_Line(">>> Starting tests of epoll_data");
New_Line;
@ -54,4 +60,14 @@ begin
end U32_Test;
Passed;
Start ("U64_Test");
U64_Test:
declare
Data : Epoll_Data := U64_Of_Lots;
begin
if Data.u64 /= 23 then
Failed;
end if;
end U64_Test;
Passed;
end Epoll.Test;

6
tests/epoll_data/test.c
View File

@ -14,3 +14,9 @@ epoll_data_t u32_of_two() {
return rc;
}
epoll_data_t u64_of_lots() {
epoll_data_t rc;
rc.u64 = 23; /* LOTS! */
return rc;
}