@@ -405,7 +405,10 @@ mod tests {
405
405
406
406
#[ test]
407
407
fn identifier_parser_parses_valid_identifier ( ) {
408
- assert_eq ! ( Some ( ( " this" , String :: from( "input->output?" ) ) ) , identifier_parser( "input->output? this" ) . ok( ) ) ;
408
+ assert_eq ! (
409
+ Some ( ( " this" , String :: from( "input->output?" ) ) ) ,
410
+ identifier_parser( "input->output? this" ) . ok( )
411
+ ) ;
409
412
}
410
413
411
414
#[ test]
@@ -425,7 +428,15 @@ mod tests {
425
428
426
429
#[ test]
427
430
fn identifier_parser_parses_valid_identifier ( ) {
428
- assert_eq ! ( Some ( ( " this" , Symbol { name: String :: from( "input->output?" ) } ) ) , symbol_parser( "input->output? this" ) . ok( ) ) ;
431
+ assert_eq ! (
432
+ Some ( (
433
+ " this" ,
434
+ Symbol {
435
+ name: String :: from( "input->output?" )
436
+ }
437
+ ) ) ,
438
+ symbol_parser( "input->output? this" ) . ok( )
439
+ ) ;
429
440
}
430
441
431
442
#[ test]
@@ -440,7 +451,7 @@ mod tests {
440
451
}
441
452
442
453
mod integer_parser_tests {
443
- use crate :: reader:: { integer_parser , debug_try_read } ;
454
+ use crate :: reader:: { debug_try_read , integer_parser } ;
444
455
445
456
#[ test]
446
457
fn integer_parser_parses_integer_one ( ) {
@@ -466,45 +477,54 @@ mod tests {
466
477
let s = "-1-2 " ;
467
478
assert_eq ! ( Some ( ( "-2 " , -1 ) ) , integer_parser( s) . ok( ) ) ;
468
479
}
469
-
470
480
}
471
481
472
482
mod try_read_symbol_tests {
473
- use crate :: value:: Value ;
474
- use crate :: symbol:: Symbol ;
475
483
use crate :: reader:: try_read_symbol;
484
+ use crate :: symbol:: Symbol ;
485
+ use crate :: value:: Value ;
476
486
477
487
#[ test]
478
488
fn try_read_minus_as_valid_symbol_test ( ) {
479
- assert_eq ! ( Value :: Symbol ( Symbol { name: String :: from( "-" ) } ) , try_read_symbol( "- " ) . unwrap( ) . 1 ) ;
489
+ assert_eq ! (
490
+ Value :: Symbol ( Symbol {
491
+ name: String :: from( "-" )
492
+ } ) ,
493
+ try_read_symbol( "- " ) . unwrap( ) . 1
494
+ ) ;
480
495
}
481
496
}
482
497
483
498
mod try_read_tests {
484
- use crate :: reader:: try_read;
485
- use crate :: value:: { Value } ;
486
- use crate :: symbol:: Symbol ;
487
- use crate :: persistent_list_map;
499
+ use crate :: maps:: MapEntry ;
488
500
use crate :: persistent_list;
501
+ use crate :: persistent_list_map;
489
502
use crate :: persistent_vector;
490
- use crate :: value:: Value :: { PersistentListMap , PersistentList , PersistentVector } ;
491
- use crate :: maps:: MapEntry ;
503
+ use crate :: reader:: try_read;
504
+ use crate :: symbol:: Symbol ;
505
+ use crate :: value:: Value ;
506
+ use crate :: value:: Value :: { PersistentList , PersistentListMap , PersistentVector } ;
492
507
use std:: rc:: Rc ;
493
508
494
509
#[ test]
495
510
fn try_read_empty_map_test ( ) {
496
- assert_eq ! ( PersistentListMap ( persistent_list_map:: PersistentListMap :: Empty ) , try_read( "{} " ) . ok( ) . unwrap( ) . 1 ) ;
511
+ assert_eq ! (
512
+ PersistentListMap ( persistent_list_map:: PersistentListMap :: Empty ) ,
513
+ try_read( "{} " ) . ok( ) . unwrap( ) . 1
514
+ ) ;
497
515
}
498
516
499
517
#[ test]
500
518
fn try_read_string_test ( ) {
501
- assert_eq ! ( Value :: String ( String :: from( "a string" ) ) , try_read( "\" a string\" " ) . ok( ) . unwrap( ) . 1 ) ;
519
+ assert_eq ! (
520
+ Value :: String ( String :: from( "a string" ) ) ,
521
+ try_read( "\" a string\" " ) . ok( ) . unwrap( ) . 1
522
+ ) ;
502
523
}
503
524
504
525
#[ test]
505
526
fn try_read_int_test ( ) {
506
527
assert_eq ! ( Value :: I32 ( 1 ) , try_read( "1 " ) . ok( ) . unwrap( ) . 1 ) ;
507
-
508
528
}
509
529
510
530
#[ test]
@@ -519,47 +539,69 @@ mod tests {
519
539
520
540
#[ test]
521
541
fn try_read_valid_symbol_test ( ) {
522
- assert_eq ! ( Value :: Symbol ( Symbol { name: String :: from( "my-symbol" ) } ) , try_read( "my-symbol " ) . ok( ) . unwrap( ) . 1 ) ;
542
+ assert_eq ! (
543
+ Value :: Symbol ( Symbol {
544
+ name: String :: from( "my-symbol" )
545
+ } ) ,
546
+ try_read( "my-symbol " ) . ok( ) . unwrap( ) . 1
547
+ ) ;
523
548
}
524
549
525
550
#[ test]
526
551
fn try_read_minus_as_valid_symbol_test ( ) {
527
- assert_eq ! ( Value :: Symbol ( Symbol { name: String :: from( "-" ) } ) , try_read( "- " ) . ok( ) . unwrap( ) . 1 ) ;
552
+ assert_eq ! (
553
+ Value :: Symbol ( Symbol {
554
+ name: String :: from( "-" )
555
+ } ) ,
556
+ try_read( "- " ) . ok( ) . unwrap( ) . 1
557
+ ) ;
528
558
}
529
559
530
560
#[ test]
531
561
fn try_read_minus_prefixed_as_valid_symbol_test ( ) {
532
- assert_eq ! ( Value :: Symbol ( Symbol { name: String :: from( "-prefixed" ) } ) , try_read( "-prefixed " ) . ok( ) . unwrap( ) . 1 ) ;
562
+ assert_eq ! (
563
+ Value :: Symbol ( Symbol {
564
+ name: String :: from( "-prefixed" )
565
+ } ) ,
566
+ try_read( "-prefixed " ) . ok( ) . unwrap( ) . 1
567
+ ) ;
533
568
}
534
569
535
570
#[ test]
536
571
fn try_read_empty_list_test ( ) {
537
- assert_eq ! ( PersistentList ( persistent_list:: PersistentList :: Empty ) , try_read( "() " ) . ok( ) . unwrap( ) . 1 ) ;
572
+ assert_eq ! (
573
+ PersistentList ( persistent_list:: PersistentList :: Empty ) ,
574
+ try_read( "() " ) . ok( ) . unwrap( ) . 1
575
+ ) ;
538
576
}
539
577
540
578
#[ test]
541
579
fn try_read_empty_vector_test ( ) {
542
- assert_eq ! ( PersistentVector ( persistent_vector:: PersistentVector { vals: [ ] . to_vec( ) } ) , try_read( "[] " ) . ok( ) . unwrap( ) . 1 ) ;
580
+ assert_eq ! (
581
+ PersistentVector ( persistent_vector:: PersistentVector { vals: [ ] . to_vec( ) } ) ,
582
+ try_read( "[] " ) . ok( ) . unwrap( ) . 1
583
+ ) ;
543
584
}
544
-
545
-
546
585
}
547
586
548
587
mod consume_clojure_whitespaces_tests {
549
588
use crate :: reader:: consume_clojure_whitespaces;
550
589
#[ test]
551
590
fn consume_whitespaces_from_input ( ) {
552
- let s = ", ,, ,1, 2, 3, 4 5,,6 " ;
553
- assert_eq ! ( Some ( ( "1, 2, 3, 4 5,,6 " , ( ) ) ) , consume_clojure_whitespaces( & s) . ok( ) ) ;
591
+ let s = ", ,, ,1, 2, 3, 4 5,,6 " ;
592
+ assert_eq ! (
593
+ Some ( ( "1, 2, 3, 4 5,,6 " , ( ) ) ) ,
594
+ consume_clojure_whitespaces( & s) . ok( )
595
+ ) ;
554
596
}
555
597
#[ test]
556
598
fn consume_whitespaces_from_empty_input ( ) {
557
- let s = "" ;
599
+ let s = "" ;
558
600
assert_eq ! ( None , consume_clojure_whitespaces( & s) . ok( ) ) ;
559
601
}
560
602
#[ test]
561
603
fn consume_whitespaces_from_input_no_whitespace ( ) {
562
- let s = "1, 2, 3" ;
604
+ let s = "1, 2, 3" ;
563
605
assert_eq ! ( Some ( ( "1, 2, 3" , ( ) ) ) , consume_clojure_whitespaces( & s) . ok( ) ) ;
564
606
}
565
607
}
@@ -581,5 +623,4 @@ mod tests {
581
623
assert_eq ! ( false , is_clojure_whitespace( 'a' ) ) ;
582
624
}
583
625
}
584
-
585
626
}
0 commit comments