perl-module 0.16.0

Perl module resolution, import analysis, and refactoring — unified facade
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57

use perl_module::rename::{apply_module_rename_edits, plan_module_rename_edits};

#[test]
fn given_use_statement_when_module_is_renamed_then_import_is_rewritten() {
    let source = "use My::Module;\n";

    let edits = plan_module_rename_edits(source, "My::Module", "My::Renamed");
    let rewritten = apply_module_rename_edits(source, &edits);

    assert_eq!(rewritten, "use My::Renamed;\n");
}

#[test]
fn given_parent_and_base_statements_when_module_is_renamed_then_all_references_are_rewritten() {
    let source = "use parent 'My::Module';\nuse base \"My::Module\";\nuse parent qw(My::Module Other::Base);\n";

    let edits = plan_module_rename_edits(source, "My::Module", "My::Renamed");
    let rewritten = apply_module_rename_edits(source, &edits);

    let expected = "use parent 'My::Renamed';\nuse base \"My::Renamed\";\nuse parent qw(My::Renamed Other::Base);\n";
    assert_eq!(rewritten, expected);
}

#[test]
fn given_package_declaration_when_module_is_renamed_then_declaration_is_rewritten() {
    // package declarations in the target file are rewritten (restored in #4594)
    let source = "package My::Module;\nmy $s = 'My::Module';\n";

    let edits = plan_module_rename_edits(source, "My::Module", "My::Renamed");
    let rewritten = apply_module_rename_edits(source, &edits);

    // The package declaration line should be rewritten; the string literal line should not
    assert_eq!(edits.len(), 1);
    assert_eq!(edits[0].line, 0);
    assert_eq!(rewritten, "package My::Renamed;\nmy $s = 'My::Module';\n");
}

#[test]
fn given_legacy_separator_import_when_module_is_renamed_then_legacy_style_is_preserved() {
    let source = "use My'Module;\n";

    let edits = plan_module_rename_edits(source, "My::Module", "My::Renamed");
    let rewritten = apply_module_rename_edits(source, &edits);

    assert_eq!(rewritten, "use My'Renamed;\n");
}

#[test]
fn given_partial_legacy_module_name_when_module_is_renamed_then_line_is_unchanged() {
    let source = "use My'Module'Child;\n";

    let edits = plan_module_rename_edits(source, "My::Module", "My::Renamed");
    let rewritten = apply_module_rename_edits(source, &edits);

    assert!(edits.is_empty());
    assert_eq!(rewritten, source);
}