// blob_test.cm
var Blob = use('blob');
var os = use('os');

function assert(condition, message) {
    if (!condition) {
        throw Error(message || "Assertion failed");
    }
}

function assertEqual(actual, expected, message) {
    if (actual != expected) {
        throw Error(message || "Expected " + expected + ", got " + actual);
    }
}

return {
    test_create_empty_blob: function() {
        var b = Blob();
        assertEqual(b.length, 0, "Empty blob should have length 0");
    },
    
    test_create_blob_with_capacity: function() {
        var b = Blob(100);
        assertEqual(b.length, 0, "New blob with capacity should still have length 0");
    },
    
    test_write_and_read_single_bit: function() {
        var b = Blob();
        b.write_bit(true);
        b.write_bit(false);
        b.write_bit(1);
        b.write_bit(0);
        assertEqual(b.length, 4, "Should have 4 bits after writing");
        
        stone(b);
        assertEqual(b.read_logical(0), true, "First bit should be true");
        assertEqual(b.read_logical(1), false, "Second bit should be false");
        assertEqual(b.read_logical(2), true, "Third bit should be true (1)");
        assertEqual(b.read_logical(3), false, "Fourth bit should be false (0)");
    },
    
    test_out_of_range_read_throws_error: function() {
        var b = Blob();
        b.write_bit(true);
        stone(b);
        
        var threw = false;
        try {
            b.read_logical(100);
        } catch (e) {
            threw = true;
        }
        assert(threw, "Out of range read should throw");
        
        threw = false;
        try {
            b.read_logical(-1);
        } catch (e) {
            threw = true;
        }
        assert(threw, "Negative index read should throw");
    },
    
    test_write_and_read_numbers: function() {
        var b = Blob();
        b.write_number(3.14159);
        b.write_number(-42);
        b.write_number(0);
        b.write_number(1e20);
        stone(b);
        
        assertEqual(b.read_number(0), 3.14159, "First number should match");
        assertEqual(b.read_number(64), -42, "Second number should match");
        assertEqual(b.read_number(128), 0, "Third number should match");
        assertEqual(b.read_number(192), 1e20, "Fourth number should match");
    },
    
    test_write_and_read_text: function() {
        var b = Blob();
        b.write_text("Hello");
        b.write_text("World");
        b.write_text("🎉");
        stone(b);
        
        assertEqual(b.read_text(0), "Hello", "First text should match");
    },
    
    test_write_and_read_blobs: function() {
        var b1 = Blob();
        b1.write_bit(true);
        b1.write_bit(false);
        b1.write_bit(true);
        
        var b2 = Blob(10);
        b2.write_blob(b1);
        b2.write_bit(false);
        assertEqual(b2.length, 4, "Combined blob should have 4 bits");
        
        stone(b2);
        assertEqual(b2.read_logical(0), true);
        assertEqual(b2.read_logical(1), false);
        assertEqual(b2.read_logical(2), true);
        assertEqual(b2.read_logical(3), false);
    },
    
    test_blob_copy_constructor: function() {
        var b1 = Blob();
        b1.write_bit(true);
        b1.write_bit(false);
        b1.write_bit(true);
        b1.write_bit(true);
        stone(b1);
        
        var b2 = Blob(b1);
        stone(b2);
        assertEqual(b2.length, 4, "Copied blob should have same length");
        assertEqual(b2.read_logical(0), true);
        assertEqual(b2.read_logical(3), true);
    },
    
    test_blob_partial_copy_constructor: function() {
        var b1 = Blob();
        for (var i = 0; i < 10; i++) {
            b1.write_bit(i % 2 == 0);
        }
        stone(b1);
        
        var b2 = Blob(b1, 2, 7);
        stone(b2);
        assertEqual(b2.length, 5, "Partial copy should have 5 bits");
        assertEqual(b2.read_logical(0), true);
        assertEqual(b2.read_logical(2), true);
    },
    
    test_create_blob_with_fill: function() {
        var b1 = Blob(8, true);
        var b2 = Blob(8, false);
        
        stone(b1);
        stone(b2);
        
        for (var i = 0; i < 8; i++) {
            assertEqual(b1.read_logical(i), true, "Bit " + i + " should be true");
            assertEqual(b2.read_logical(i), false, "Bit " + i + " should be false");
        }
    },
    
    test_create_blob_with_random_function: function() {
        var sequence = [true, false, true, true, false];
        var index = 0;
        
        var b = Blob(5, function() {
            return sequence[index++] ? 1 : 0;
        });
        
        stone(b);
        for (var i = 0; i < 5; i++) {
            assertEqual(b.read_logical(i), sequence[i], "Bit " + i + " should match sequence");
        }
    },
    
    test_write_pad_and_check_padding: function() {
        var b = Blob();
        b.write_bit(true);
        b.write_bit(false);
        b.write_bit(true);
        b.write_pad(8);
        
        assertEqual(b.length, 8, "Should be padded to 8 bits");
        stone(b);
        
        assert(b['pad?'](3, 8), "Should detect valid padding at position 3");
        assert(!b['pad?'](2, 8), "Should detect invalid padding at position 2");
    },
    
    test_read_blob_from_stone_blob: function() {
        var b1 = Blob();
        for (var i = 0; i < 16; i++) {
            b1.write_bit(i % 3 == 0);
        }
        stone(b1);
        
        var b2 = b1.read_blob(4, 12);
        stone(b2);
        assertEqual(b2.length, 8, "Read blob should have 8 bits");
        
        assertEqual(b2.read_logical(2), true);
        assertEqual(b2.read_logical(5), true);
    },
    
    test_stone_blob_is_immutable: function() {
        var b = Blob();
        b.write_bit(true);
        stone(b);
        
        var threw = false;
        try {
            b.write_bit(false);
        } catch (e) {
            threw = true;
        }
        assert(threw, "Writing to stone blob should throw error");
    },
    
    test_multiple_stone_calls_are_safe: function() {
        var b = Blob();
        b.write_bit(true);
        assert(!stone.p(b), "Blob should not be a stone before stone() call");
        stone(b);
        assert(stone.p(b), "Blob should be a stone after stone() call");
        stone(b);
        assertEqual(b.read_logical(0), true, "Blob data should remain intact");
        
        assert(b.stone == null, "blob.stone should not be available as a method");
    },
    
    test_invalid_constructor_arguments: function() {
        var threw = false;
        try {
            var b = Blob("invalid");
        } catch (e) {
            threw = true;
        }
        assert(threw, "Invalid constructor arguments should throw");
    },
    
    test_write_bit_validation: function() {
        var b = Blob();
        b.write_bit(0);
        b.write_bit(1);
        
        var threw = false;
        try {
            b.write_bit(2);
        } catch (e) {
            threw = true;
        }
        assert(threw, "write_bit with value 2 should throw");
    },
    
    test_complex_data_round_trip: function() {
        var b = Blob();
        
        b.write_text("Test");
        b.write_number(123.456);
        b.write_bit(true);
        b.write_bit(false);
        b.write_number(-999.999);
        
        var originalLength = b.length;
        stone(b);
        
        var b2 = Blob(b);
        stone(b2);
        assertEqual(b2.length, originalLength, "Copy should have same length");
        assertEqual(b2.read_text(0), "Test", "First text should match");
    },
    
    test_zero_capacity_blob: function() {
        var b = Blob(0);
        assertEqual(b.length, 0, "Zero capacity blob should have length 0");
        b.write_bit(true);
        assertEqual(b.length, 1, "Should expand when writing");
    },
    
    test_large_blob_handling: function() {
        var b = Blob();
        var testSize = 1000;
        
        for (var i = 0; i < testSize; i++) {
            b.write_bit(i % 7 == 0);
        }
        
        assertEqual(b.length, testSize, "Should have " + testSize + " bits");
        stone(b);
        
        assertEqual(b.read_logical(0), true, "Bit 0 should be true");
        assertEqual(b.read_logical(7), true, "Bit 7 should be true");
        assertEqual(b.read_logical(14), true, "Bit 14 should be true");
        assertEqual(b.read_logical(15), false, "Bit 15 should be false");
    },
    
    test_non_stone_blob_read_methods_should_throw: function() {
        var b = Blob();
        b.write_bit(true);
        b.write_number(42);
        b.write_text("test");
        
        var threw = false;
        try {
            b.read_logical(0);
        } catch (e) {
            threw = true;
        }
        assert(threw, "read_logical on non-stone blob should throw");
        
        threw = false;
        try {
            b.read_number(0);
        } catch (e) {
            threw = true;
        }
        assert(threw, "read_number on non-stone blob should throw");
        
        threw = false;
        try {
            b.read_text(0);
        } catch (e) {
            threw = true;
        }
        assert(threw, "read_text on non-stone blob should throw");
        
        threw = false;
        try {
            b.read_blob(0, 10);
        } catch (e) {
            threw = true;
        }
        assert(threw, "read_blob on non-stone blob should throw");
        
        threw = false;
        try {
            b['pad?'](0, 8);
        } catch (e) {
            threw = true;
        }
        assert(threw, "pad? on non-stone blob should throw");
    },
    
    test_empty_text_write_and_read: function() {
        var b = Blob();
        b.write_text("");
        stone(b);
        assertEqual(b.read_text(0), "", "Empty string should round-trip");
    },
    
    test_invalid_read_positions: function() {
        var b = Blob();
        b.write_number(42);
        stone(b);
        
        var threw = false;
        try {
            b.read_number(-10);
        } catch (e) {
            threw = true;
        }
        assert(threw, "Negative position should throw");
        
        threw = false;
        try {
            b.read_number(1000);
        } catch (e) {
            threw = true;
        }
        assert(threw, "Position beyond length should throw");
    }
}