{$CLEO .s}
{$INCLUDE_ONCE ../cleo_tester.inc}

script_name '2701'
test("2701 (set_bit)", tests)
terminate_this_custom_script

function tests
    it("should set bits", test1)
    return
    
    function test1
        0@ = 0x12345678
        2701: set_bit {var_number} 0@ {bitIndex} 0
        assert_eq(0@, 0x12345679)
        
        0@ = 0x12345678
        2701: set_bit {var_number} 0@ {bitIndex} 3 // already set
        assert_eq(0@, 0x12345678)
        
        0@ = 0x12345678
        2701: set_bit {var_number} 0@ {bitIndex} 13
        assert_eq(0@, 0x12347678)
        
        0@ = 0x12345678
        2701: set_bit {var_number} 0@ {bitIndex} 14 // already set
        assert_eq(0@, 0x12345678)
        
        0@ = 0x12345678
        2701: set_bit {var_number} 0@ {bitIndex} 28 // already set
        assert_eq(0@, 0x12345678)
        
        0@ = 0x12345678
        2701: set_bit {var_number} 0@ {bitIndex} 31
        assert_eq(0@, 0x92345678)
    end    
end