diff --git a/tests/tr/tr.pl b/tests/tr/tr.pl
index e07dfa0c7..dc37e5c19 100755
--- a/tests/tr/tr.pl
+++ b/tests/tr/tr.pl
@@ -158,6 +158,10 @@ my @Tests =
 
   # Up to coreutils-6.9, this would provoke a failed assertion.
   ['no-abort-1', qw(-c a '[b*256]'), {IN=>'abc'}, {OUT=>'abb'}],
+
+  # Reject unknown character class name.
+  ['invalid-class', qw('[:fooclass:]' x), {IN=>'abc'}, {OUT=>''}, {EXIT=>1},
+   {ERR=>"$prog: invalid character class 'fooclass'\n"}],
 );
 
 @Tests = triple_test \@Tests;