360 lines
10 KiB
Plaintext
360 lines
10 KiB
Plaintext
// 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(length(b), 0, "Empty blob should have length 0");
|
|
},
|
|
|
|
test_create_blob_with_capacity: function() {
|
|
var b = Blob(100);
|
|
assertEqual(length(b), 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(length(b), 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(length(b2), 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(length(b2), 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(length(b2), 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(length(b), 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(length(b2), 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 = length(b);
|
|
stone(b);
|
|
|
|
var b2 = Blob(b);
|
|
stone(b2);
|
|
assertEqual(length(b2), 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(length(b), 0, "Zero capacity blob should have length 0");
|
|
b.write_bit(true);
|
|
assertEqual(length(b), 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(length(b), 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");
|
|
}
|
|
}
|