pascalabcnet/TestSuite/patterns/patterns-simple-tuple.pas

begin
  match (1, 2, 'string') with
    (1, _, 'str'): assert(false); 
    (1, _, 'strin'): assert(false);
    (_, _, 'string'): ;
  end;
end.
-												Добавил несколько тестов, поправил грамматику

											
										
										
											2019-04-26 20:30:28 +03:00
+								begin
 								  match (1, 2, 'string') with
 								    (1, _, 'str'): assert(false);
 								    (1, _, 'strin'): assert(false);
-												Formatter fixes, code examples.

											
										
										
											2019-05-23 10:37:16 +03:00
+								    (_, _, 'string'): ;
-												Добавил несколько тестов, поправил грамматику

											
										
										
											2019-04-26 20:30:28 +03:00
+								  end;
 								end.