+
+ $tmp =~ tr/a-z/A-Z/;
+ $tmp .= $f;
+
+ ok(open(F, "> $mount/$f"), "open write $mount/$f");
+ print F $tmp;
+ ok(close(F), "close");
+
+ ok($sth_select->execute($f), "select $f");
+ cmp_ok($sth_select->fetchrow_array(), 'eq', $tmp, "updated content");