infocom/compilers/inform6/library/contributions/fixedpt.inf

! fixedpt.inf - test harness for fixedpt.h (fixed-point math support for Inform)
!   Version 1.0 (19-Sep-2001)
!
! by Matt Albrecht - groboclown@users.sourceforge.net
!
! (If you need to edit this file, note that indentations are 4 spaces
! and tabs are not used.)
!
! This has been donated to the Public Domain.  Use, abuse, and don't blame me.
!

Message "Compiling Fixed-Point Math unit tests";



Include "infunit";



! Not optimized version
Include "fixedpt";




[Main;
    StartTest( testPrint );
    StartTest( testConvertFloor );
    
    report();
];




[ testPrint
        i;
    
    i = $ffff;
    print "$ffff: signed = ", (fixedpt_signed)i, "^";
    print "     unsigned = ", (fixedpt_unsigned)i, "^";

    i = $0;
    print "$0000: signed = ", (fixedpt_signed)i, "^";
    print "     unsigned = ", (fixedpt_unsigned)i, "^";

    i = $ff00;
    print "$ff00: signed = ", (fixedpt_signed)i, "^";
    print "     unsigned = ", (fixedpt_unsigned)i, "^";

    i = $8000;
    print "$8000: signed = ", (fixedpt_signed)i, "^";
    print "     unsigned = ", (fixedpt_unsigned)i, "^";

    i = $7fff;
    print "$7fff: signed = ", (fixedpt_signed)i, "^";
    print "     unsigned = ", (fixedpt_unsigned)i, "^";

    i = $0080;
    print "$0080: signed = ", (fixedpt_signed)i, "^";
    print "     unsigned = ", (fixedpt_unsigned)i, "^";

    i = $01ff;
    print "$01ff: signed = ", (fixedpt_signed)i, "^";
    print "     unsigned = ", (fixedpt_unsigned)i, "^";
];


[ testConvertFloor
    ;
    
    assertEquals(
        0,
        fixedpt_unsigned_floor_word( 0 ),
        "floor(0) not right" );
    
    assertEquals(
        0,
        fixedpt_unsigned_floor_word( $00ff ),
        "floor($00ff) not right" );
    
    assertEquals(
        1,
        fixedpt_unsigned_floor_word( $0100 ),
        "floor($0100) not right" );
    
    assertEquals(
        1,
        fixedpt_unsigned_floor_word( $01ff ),
        "floor($01ff) not right" );
    
];