!7

p-exp {
  assertEqualsVerbose(userDir("bla"), dropExtension(userDir("bla"));
  assertEqualsVerbose(userDir("bla"), dropExtension(userDir("bla.x"));
  assertEqualsVerbose(userDir("blubb.x"), dropExtension(userDir("blubb.x.y"));
  assertEqualsVerbose(new File("bla"), dropExtension(new File("bla.x"));
}