Fix istr::unsafe_from_bytes. Issue #855

Author: brson

src/lib/istr.rs

@@ -2,7 +2,7 @@ export eq, lteq, hash, is_empty, is_not_empty, is_whitespace, byte_len,
 index, rindex, find, starts_with, ends_with, substr, slice, split,
 concat, connect, to_upper, replace, char_slice, trim_left, trim_right, trim,
 unshift_char, shift_char, pop_char, push_char, is_utf8, from_chars, to_chars,
-char_len, char_at, bytes, is_ascii, shift_byte, pop_byte;
+char_len, char_at, bytes, is_ascii, shift_byte, pop_byte, unsafe_from_bytes;
 
 export from_str, to_str;
 
@@ -111,6 +111,7 @@ fn bytes(s: &istr) -> [u8] {
 fn unsafe_from_bytes(v: &[mutable? u8]) -> istr {
     let vcopy: [u8] = v + [0u8];
     let scopy: istr = unsafe::reinterpret_cast(vcopy);
+    unsafe::leak(vcopy);
     ret scopy;
 }
 

src/test/stdtest/istr.rs

@@ -249,3 +249,10 @@ fn pop_byte() {
     assert s == ~"AB";
     assert b == 67u8;
 }
+
+#[test]
+fn unsafe_from_bytes() {
+    let a = [65u8, 65u8, 65u8, 65u8, 65u8, 65u8, 65u8];
+    let b = istr::unsafe_from_bytes(a);
+    assert b == ~"AAAAAAA";
+}