Add two tests.

Author: Herren

check/features.frm

@@ -1187,3 +1187,30 @@ else
   assert runtime_error?('Could not create sort file: bad_path\xformxxx.sor')
 end
 *--#] TempSortDir_windows :
+*--#[ tablebase_ro_1 :
+Table,sparse,no1fill(1,3);
+Fill no1fill(1) = 1;
+Fill no1fill(2) = 2;
+Fill no1fill(3) = 3;
+TableBase "no1.tbl" create;
+TableBase "no1.tbl" addto no1fill;
+.end
+Table,sparse,no2fill(1,3);
+Fill no2fill(1) = 1;
+Fill no2fill(2) = 2;
+Fill no2fill(3) = 3;
+.sort
+TableBase "no1.tbl" load;
+TestUse;
+.sort
+TableBase "no1.tbl" use;
+Apply;
+.sort
+TableBase "no1.tbl" addto no2fill;
+.end
+assert runtime_error?('Tablebase with the name no1.tbl opened in read only mode')
+*--#] tablebase_ro_1 :
+*--#[ tablebase_ro_2 :
+TableBase "no212.tbl" open, readonly;
+assert runtime_error?('Trying to open non-existent TableBase in readonly mode: no212.tbl')
+*--#] tablebase_ro_2 :