Advertisement
happy-barney

test example

Nov 20th, 2024
63
0
13 days
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.98 KB | None | 0 0
  1. assume_augmentation q (should fix 'ref // 1')
  2.     => document        => q (ref // 1)
  3.     => expect_document => expect_document (
  4.         expect_element (PPI::Statement::            => (
  5.             expect_element (PPI::Token::Word::       => q (ref)),
  6.             expect_element (PPI::Token::Whitespace:: => q ( )),
  7.             expect_element (PPI::Token::Operator::   => q (//)),
  8.             expect_element (PPI::Token::Whitespace:: => q ( )),
  9.             expect_element (PPI::Token::Number::     => q (1)),
  10.         )),
  11.     )
  12.     => expect_analyze => [
  13.         expect_element (PPI::Token::Operator::   => q (//)),
  14.     ]
  15.     => expect_augment => expect_true,
  16.     => expect_result  => expect_document (
  17.         expect_element (PPI::Statement::            => (
  18.             expect_element (PPI::Token::Word::          => q (ref)),
  19.             expect_element (PPI::Token::Whitespace::    => q ( )),
  20.             expect_element (PPI::Token::Regexp::Match:: => q (//)),
  21.             expect_element (PPI::Token::Whitespace::    => q ( )),
  22.             expect_element (PPI::Token::Number::        => q (1)),
  23.         )),
  24.     )
  25.     ;
  26.  
  27.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement