The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
description: "New primary with wrong setName"

uri: "mongodb://a/?replicaSet=rs"

phases: [

    # Primary is discovered normally, and tells us about server B.
    {
        responses: [

                ["a:27017", {

                    ok: 1,
                    ismaster: true,
                    hosts: ["a:27017", "b:27017"],
                    setName: "rs"
                }]
        ],

        outcome: {

            servers: {

                "a:27017": {

                    type: "RSPrimary",
                    setName: "rs"
                },

                "b:27017": {

                    type: "Unknown",
                    setName:
                }
            },

            topologyType: "ReplicaSetWithPrimary",
            setName: "rs"
        }
    },

    # B is actually the primary of another replica set. It's removed, and
    # topologyType remains ReplicaSetWithPrimary.
    {
        responses: [

                ["b:27017", {

                    ok: 1,
                    ismaster: true,
                    hosts: ["a:27017"],
                    setName: "wrong"
                }]
        ],

        outcome: {

            servers: {

                "a:27017": {

                    type: "RSPrimary",
                    setName: "rs"
                }
            },

            topologyType: "ReplicaSetWithPrimary",
            setName: "rs"
        }
    }
]