+is( $WARNING, 0, '$WARNING' );
+like( $EXECUTABLE_NAME, qr/perl/i, '$EXECUTABLE_NAME' );
+is( $OSNAME, $Config{osname}, '$OSNAME' );
+
+# may be non-portable
+ok( $SYSTEM_FD_MAX >= 2, '$SYSTEM_FD_MAX should be at least 2' );
+
+is( $INPLACE_EDIT, '.inplace', '$INPLACE_EDIT' );
+
+'aabbcc' =~ /(.{2}).+(.{2})(?{ 9 })/;
+is( $LAST_PAREN_MATCH, 'cc', '$LAST_PAREN_MATCH' );
+is( $LAST_REGEXP_CODE_RESULT, 9, '$LAST_REGEXP_CODE_RESULT' );
+
+is( $LAST_MATCH_START[1], 0, '@LAST_MATCH_START' );
+is( $LAST_MATCH_END[1], 2, '@LAST_MATCH_END' );
+
+ok( !$PERLDB, '$PERLDB should be false' );
+
+{
+ local $INPUT_RECORD_SEPARATOR = "\n\n";
+ like( <DATA>, qr/a paragraph./, '$INPUT_RECORD_SEPARATOR' );
+}
+like( <DATA>, qr/second paragraph..\z/s, '$INPUT_RECORD_SEPARATOR' );
+
+is( $INPUT_LINE_NUMBER, 2, '$INPUT_LINE_NUMBER' );
+
+my %hash;
+$SUBSCRIPT_SEPARATOR = '|';
+$hash{d,e,f} = 1;
+$SUBSEP = ',';
+$hash{'a', 'b', 'c'} = 1;
+my @keys = sort keys %hash;
+
+is( $keys[0], 'a,b,c', '$SUBSCRIPT_SEPARATOR' );
+is( $keys[1], 'd|e|f', '$SUBSCRIPT_SEPARATOR' );
+
+eval { is( $EXCEPTIONS_BEING_CAUGHT, 1, '$EXCEPTIONS_BEING_CAUGHT' ) };
+ok( !$EXCEPTIONS_BEING_CAUGHT, '$EXCEPTIONS_BEING_CAUGHT should be false' );
+
+eval { local *F; my $f = 'asdasdasd'; ++$f while -e $f; open(F, $f); };
+is( $OS_ERROR, $ERRNO, '$OS_ERROR' );
+ok( $OS_ERROR{ENOENT}, '%OS_ERROR (ENOENT should be set)' );
+
+package B;
+
+use English;