// -*- rust -*-

use std;
import std::_str;

// FIXME: import std::dbg.const_refcount. Currently
// cross-crate const references don't work.
const uint const_refcount = 0x7bad_face_u;

tag t {
  make_t(str);
  clam;
}

fn foo(str s) {
  let t x = make_t(s);  // ref up

  alt (x) {
    case (make_t(?y)) { log y; }  // ref up then down
    case (_) { log "?"; fail; }
  }

  log _str::refcount(s);
  assert (_str::refcount(s) == const_refcount);
}

fn main() {
  let str s = "hi";     // ref up
  foo(s);               // ref up then down
  log _str::refcount(s);
  assert (_str::refcount(s) == const_refcount);
}